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Preface 


This book uses MATLAB? to analyze various applications in mathematics and me- 
chanics. The authors hope to encourage engineers and scientists to consider this 
modern programming environment as an excellent alternative to languages such as 
FORTRAN or C++. MATLAB! embodies an interactive environment with a high 
level programming language supporting both numerical and graphical commands for 
two- and three-dimensional data analysis and presentation. The wealth of intrinsic 
mathematical commands to handle matrix algebra, Fourier series, differential equa- 
tions, and complex-valued functions makes simple calculator operations of many 
tasks previously requiring subroutine libraries with cumbersome argument lists. 

We analyze problems, drawn from our teaching and research interests, empha- 
sizing linear and nonlinear differential equation methods. Linear partial differential 
equations and linear matrix differential equations are analyzed using eigenfunctions 
and series solutions. Several types of physical problems are considered. Among 
these are heat conduction, harmonic response of strings, membranes, beams, and 
trusses, geometrical properties of areas and volumes, flexure and buckling of inde- 
terminate beams, elastostatic stress analysis, and multi-dimensional optimization. 

Numerical integration of matrix differential equations is used in several examples 
illustrating the utility of such methods as well as essential aspects of numerical ap- 
proximation. Attention is restricted to the Runge-Kutta method which is adequate to 
handle most situations. Space limitation led us to omit some interesting MATLAB 
features concerning predictor-corrector methods, stiff systems, and event locations. 

This book is not an introductory numerical analysis text. It is most useful as a ref- 
erence or a supplementary text in computationally oriented courses emphasizing ap- 
plications. The authors have previously solved many of the examples in FORTRAN. 
Our MATLAB solutions consume over three hundred pages (over twelve thousand 
lines). Although few books published recently present this much code, comparable 
FORTRAN versions would probably be signifcantly longer. In fact, the conciseness 
of MATLAB was a primary motivation for writing the book. 

The programs contain many comments and are intended for study as separate en- 
tities without an additional reference. Consequently, some deliberate redundancy 


IMATLAB is a registered trademark of The MathWorks, Inc. For additional information contact: 
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exists between program comments and text discussions. We also list programs in a 
style we feel will be helpful to most readers. The source listings show line numbers 
adjacent to the MATLAB code. MATLAB code does not use line numbers or permit 
goto statements. We have numbered the lines to aid discussions of particular pro- 
gram segments. To conserve space, we often place multiple MATLAB statements on 
the same line when this does not interrupt the logical flow. 

All of the programs presented are designed to operate under the 6.x version of 
MATLAB and Microsoft Windows. Both the text and graphics windows should be 
simultaneously visible. A windowed environment is essential for using capabilities 
like animation and interactive manipulation of three dimensional figures. The source 
code for all of the programs in the book is available from the CRC Press website at 
http://www.crcpress.com. The program collection is organized using an 
independent subdirectory for each of the thirteen chapters. 

This third edition incorporates much new material on time dependent solutions of 
linear partial differential equations. Animation is used whenever seeing the solution 
evolve in time is helpful. Animation illustrates quite well phenomena like wave 
propagation in strings and membranes. The interactive zoom and rotation features in 
MATLAB are also valuable tools for interpreting graphical output. 

Most programs in the book are academic examples, but some problem solutions 
are useful as stand-alone analysis tools. Examples include geometrical property cal- 
culation, differentiation or integration of splines, Gauss integration of arbitrary order, 
and frequency analysis of trusses and membranes. 

A chapter on eigenvalue problems presents applications in stress analysis, elastic 
stability, and linear system dynamics. A chapter on analytic functions shows the 
efficiency of MATLAB for applying complex valued functions and the Fast Fourier 
Transform (FFT) to harmonic and biharmonic functions. Finally, the book concludes 
with a chapter applying multidimensional search to several nonlinear programming 
problems. 

We emphasize that this book is primarily for those concerned with physical appli- 
cations. A thorough grasp of Euclidean geometry, Newtonian mechanics, and some 
mathematics beyond calculus is essential to understand most of the topics. Finally, 
the authors enjoy interacting with students, teachers, and researchers applying ad- 
vanced mathematics to real world problems.The availability of economical computer 
hardware and the friendly software interface in MATLAB makes computing increas- 
ingly attractive to the entire technical community. If we manage to cultivate interest 
in MATLAB among engineers who only spend part of their time using computers, 
our primary goal will have been achieved. 


Howard B. Wilson hwilson Q bama.ua.edu 
Louis H. Turcotte turcotte ? rose-hulman.edu 
David Halpern david.halpern Q ua.edu 


€ 2003 by Chapman & Hall/CRC 


Contents 


1 Introduction 


Ll 
L2 
1.3 
1.4 


MATLAB: A Tool for Engineering Analysis 

MATLAB Commands and Related Reference Materials 
Example Problem on Financial Analysis 

Computer Code and Results 

1.4.1 Computer Output 

1.4.2 Discussion of the MATLAB Code 

1.4.3 Code for Financial Problem 


2 Elementary Aspects of MATLAB Graphics 


2.1 
2,2 
23 
2.4 
25 
2.6 
2.7 
2.8 


Introduction 

Overview of Graphics 

Example Comparing Polynomial and Spline Interpolation 
Conformal Mapping Example 

Nonlinear Motion of a Damped Pendulum 
A Linear Vibration Model 

Example of Waves in an Elastic String 
Properties of Curves and Surfaces 

2.8.1 Curve Properties 

2.8.2 Surface Properties 

2.8.3 Program Output and Code 


3 Summary of Concepts from Linear Algebra 


ed 
3.2 
33 


3.4 


Sa 


Introduction 

Vectors, Norms, Linear Independence, and Rank 

Systems of Linear Equations, Consistency, and Least Squares Ap- 

proximation 

Applications of Least Squares Approximation 

34. A Membrane Deflection Problem 

3.4. Mixed Boundary Value Problem for a Function Harmonic 
Inside a Circular Disk 

3.4.3 Using Rational Functions to Conformally Map a Circular 
Disk onto a Square 

Eigenvalue Problems 

3.5.1 Statement of the Problem 

3.5.2 Application to Solution of Matrix Differential Equations 


© 2003 by Chapman & Hall/CRC 


3.5.3 The Structural Dynamics Equation 
3.6 Computing Natural Frequencies for a Rectangular Membrane 
3.7 Column Space, Null Space, Orthonormal Bases, and SVD 
3.8 Computation Time to Run a MATLAB Program 


4 Methods for Interpolation and Numerical Differentiation 

4.1 Concepts of Interpolation 

4.2 Interpolation, Differentiation, and Integration by Cubic Splines 
4.2.1 Computing the Length and Area Bounded by a Curve 
4.2.2 Example: Length and Enclosed Area for a Spline Curve 
4.2.3 Generalizing the Intrinsic Spline Function in MATLAB 
4.2.4 Example: A Spline Curve with Several Parts and Corners 

4.3 Numerical Differentiation Using Finite Differences 
4.3.1 Example: Program to Derive Difference Formulas 


5 Gauss Integration with Geometric Property Applications 
5.1 Fundamental Concepts and Intrinsic Integration Tools in MATLAB 
5.2 Concepts of Gauss Integration 
5.3 Comparing Results from Gauss Integration and Function QUADL 
Geometrical Properties of Areas and Volumes 
1 Area Property Program 
5. .2 Program Analyzing Volumes of Revolution 
5:5 Computing Solid Properties Using Triangular Surface Elements and 
Using Symbolic Math 
5.6 Numerical and Symbolic Results for the Example 
5.7 Geometrical Properties of a Polyhedron 
5.8 Evaluating Integrals Having Square Root Type Singularities 
5.8.1 Program Listing 
5.9 Gauss Integration of a Multiple Integral 
5.9.1 Example: Evaluating a Multiple Integral 


6 Fourier Series and the Fast an baraca 


6.1.1 Trige ometric praise cas, n the Fast Fis Transform 
6.2 Some Applications 

6.2.1 Using the FFT to Compute Integer Order Bessel Functions 

6.2.2 Dynamic Response of a Mass on an Oscillating Foundation 

6.2.3 General Program to Plot Fourier Expansions 


- 


Dynamic Response of Linear Second Order Systems 
7.1 Solving the Structural Dynamics Equations for Periodic Forces 
7.1.1 Application to Oscillations of a Vertically Suspended Cable 
7.2 Direct Integration Methods 
7.2.1 Example on Cable Response by Direct Integration 


O 2003 by Chapman & Hall/CRC 


8 Integration of Nonlinear Initial Value Problems 

8.1 General Concepts on Numerical Integration of Nonlinear Matrix Dif- 
ferential Equations 

8.2 Runge-Kutta Methods and the ODE45 Integrator Provided in MAT- 
LAB 

8.3 Step-size Limits Necessary to Maintain Numerical Stability 

8.4 Discussion of Procedures to Maintain Accuracy by Varying Integra- 
tion Step-size 

8.5 Example on Forced Oscillations of an Inverted Pendulum 

8.6 Dynamics of a Spinning Top 

8.7 Motion of a Projectile 

8.8 Example on Dynamics of a Chain with Specified End Motion 

8.9 Dynamics of an Elastic Chain 


Solving the Laplace Equation inside a Rectangular Region 
9.3 The Vibrating String 
9.4 Force Moving on an Elastic String 
9.4.1 Computer Analysis 
9.5 Waves in Rectangular or Circular Membranes 
9.5.1 Computer Formulation 
9.5.2 Input Data for Program membwave 
9.6 Wave Propagation in a Beam with an Impact Moment Applied to 
One End 
9.7 Forced Vibration of a Pile Embedded in an Elastic Medium 
9.8 "Transient Heat Conduction in a One-Dimensional Slab 
9.9 Transient Heat Conduction in a Circular Cylinder with Spatially Vary- 
ing Boundary Temperature 
9.9.1 Problem Formulation 
9.9.2 Computer Formulation 
9.10 Torsional Stresses in a Beam of Rectangular Cross Section 


10 Eigenvalue Problems and Applications 
10.1 Introduction 
10.2 Approximation Accuracy in a Simple Eigenvalue Problem 
10.3 Stress Transformation and Principal Coordinates 
10.3.1 Principal Stress Program 
10.3.2 Principal Axes of the Inertia Tensor 
10.4 Vibration of Truss Structures 
10.4.1 Truss Vibration Program 
10.5 Buckling of Axially Loaded Columns 
10.5.1 Example for a Linearly Tapered Circular Cross Section 
10.5.2 Numerical Results 


€ 2003 by Chapman & Hall/CRC 


10.6 Accuracy Comparison for Euler Beam Natural Frequencies by Finite 


10.6.1 Mathematical Formulation 
10.6.2. Discussion of the Code 
10.6.3 Numerical Results 


10.7 Vibration Modes of an Elliptic Membrane 
10.7.1 Analytical Formulation 
10.7.2 Computer Formulation 


11 Bending Analysis of Beams of General Cross Section 
11.1 Introduction 
11.1.1 Analytical Formulation 
11.1.2 Program to Analyze Beams of General Cross Section 
11.1.3 Program Output and Code 


12 Applications of Analytic Functions 
12.1 Properties of Analytic Functions 
12.2 Definition of Analyticity 
12.3 Series Expansions 
12.4 Integral Properties 
12.4.1 Cauchy Integral Formula 
12.4.2 Residue Theorem 
12.5 Physical Problems Leading to Analytic Functions 
12.5.1 Steady-State Heat Cond n 
12.5.2 Incompressible Inviscid Fluid Flow 
12.5.3 Torsion and Flexure of Elastic Beams 
12.5.4 Plane Elastostatics 
5 Electric Field Intensity 
12.6 Branch Points and Multivalued Behavior 
12.7 Conformal Mapping and Harmonic Functions 
12.8 Mapping onto the Exterior or the Interior of an Ellipse 
12.8.1 Program Output and Code 

12.9 Linear Fractional Transformations 
12.9.1 Program Output and Code 

12.10 Schwarz-Christoffel Mapping onto a Square 
12.10.1 Program Output and Code 

12.11 Determining Harmonic Functions in a Circular Disk 
12.11.1 Numerical Results 
12.11.2 Program Output and Code 

12.12 Inviscid Fluid Flow around an Elliptic Cylinder 
12.12.1 Program Output and Code 

12.13 Torsional Stres: 


12.14.1 Program Output and Code 


€ 2003 by Chapman & Hall/CRC 


12.14.2 Stressed Plate with an Elliptic Hole 
12.14.3 Program Output and Code 


13 Nonlinear Optimization Applications 
13.1 Basic Concepts 
13.2 Initial Angle for a Projectile 
13.3 Fitting Nonlinear Equations to Data 
13.4 Nonlinear Deflections of a Cable 
13.5 Quickest Time Descent Curve (the Brachistochrone) 
13.6 Determining the Closest Points on Two Surfaces 
13.6.1 Discussion of the Computer Code 


A List of MATLAB Routines with Descriptions 
B Selected Utility and Application Functions 


References 


© 2003 by Chapman & Hall/CRC 


Chapter 1 


Introduction 


1.1 MATLAB: A Tool for Engineering Analysis 


This book presents various MATLAB applications in mechanics and applied math- 
ematics. Our objective is to employ numerical methods in examples emphasizing the 
appeal of MATLAB as a programming tool. The programs are intended for study as 
a primary component of the text. The numerical methods used include interpola- 
tion, numerical integration, finite differences, linear algebra, Fourier analysis, roots 
of nonlinear equations, linear differential equations, nonlinear differential equations, 
linear partial differential equations, analytic functions, and optimization methods. 
Many intrinsic MATLAB functions are used along with some utility functions devel- 
oped by the authors. The physical applications vary widely from solution of linear 
and nonlinear differential equations in mechanical system dynamics to geometrical 
property calculations for areas and volumes. 

For many years FORTRAN has been the favorite programming language for solv- 
ing mathematical and engineering problems on digital computers. An attractive al- 
ternative is MATLAB which facilitates program development with excellent error 
diagnostics and code tracing capabilities. Matrices are handled efficiently with many 
intrinsic functions performing familiar linear algebra tasks. Advanced software fea- 
tures such as dynamic memory allocation and interactive error tracing reduce the 
time to get solutions. The versatile but simple graphics commands in MATLAB also 
allow easy preparation of publication quality graphs and surface plots for technical 
papers and books. The authors have found that MATLAB programs are often signi- 
fantly shorter than corresponding FORTRAN versions. Consequently, more time is 
available for the primary purpose of computing, namely, to better understand physi- 
cal system behavior. 

The mathematical foundation needed to grasp most topics presented here is cov- 
ered in an undergraduate engineering curriculum. This should include a grounding in 
calculus, differential equations, and knowledge of a procedure oriented programming 
language like FORTRAN. An additional course on advanced engineering mathemat- 
ics covering linear algebra, matrix differential equations, and eigenfunction solutions 
of partial differential equations will also be valuable. The MATLAB programs were 
written primarily to serve as instructional examples in classes traditionally referred to 
as advanced engineering mathematics and applied numerical methods. The greatest 
benefit to the reader will probably be derived through study of the programs relat- 
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ing mainly to physics and engineering applications. Furthermore, we believe that 
several of the MATLAB functions are useful as general utilities. Typical examples 
include routines for spline interpolation, differentiation, and integration; area and 
inertial moments for general plane shapes; and volume and inertial properties of ar- 
bitrary polyhedra. We have also included examples demonstrating natural frequency 
analysis and wave propagation in strings and membranes. 

MATLAB is now employed in more than two thousand universities and the user 
community throughout the world numbers in the thousands. Continued growth will 
be fueled by decreasing hardware costs and more people familiar with advanced an- 
alytical methods. The authors hope that our problem solutions will motivate analysts 
already comfortable with languages like FORTRAN to learn MATLAB. The rewards 
of such efforts can be considerable. 


E TEEEETEEEÉETTEETTTIÉTÁITLLBTETITTIIÉIIÉTÉTIIIILIIIIIIIÍI 


1.2 MATLAB Commands and Related Reference Materials 


MATLAB has a rich command vocabulary covering most mathematical topics en- 
countered in applications. The current section presents instructions on: a) how to 
learn MATLAB commands, b) how to examine and understand MATLAB’s lucidly 
written and easily accessible “demo” programs, and c) how to expand the command 
language by writing new functions and programs. A comprehensive online help sys- 
tem is included and provides lengthy documentation of all the operators and com- 
mands. Additional capabilities are provided by auxiliary toolboxes. The reader is 
encouraged to study the command summary to get a feeling for the language struc- 
ture and to have an awareness of powerful operations such as null,orth,eig, and fft. 

The manual for The Student Edition of MATLAB should be read thoroughly and 
kept handy for reference. Other references [47, 97, 103] also provide valuable sup- 
plementary information. This book extends the standard MATLAB documentation 
to include additional examples which we believe are complementary to more basic 
instructional materials. 

Learning to use help, type, dbtype, demo, and diary is important to understand- 
ing MATLAB. help function.name (such as help plot) lists available documentation 
on a command or function generically called “function name.” MATLAB responds 
by printing introductory comments in the relevant function (comments are printed 
until the first blank line or first MATLAB command after the function heading is 
encountered). This feature allows users to create online help for their own functions 
by simply inserting appropriate comments at the top of the function. The instruction 
type function. name lists the entire source code for any function where source code 
is available (the code for intrinsic functions stored in compiled binary for computa- 
tional efficiency cannot be listed). Consider the following list of typical examples 


© 2003 by CRC Press LLC 


Command Resulting Action 


help help discusses use of the help command 

help demos lists names of various demo programs 

type linspace lists the source code for the function which generates a vec- 
tor of equidistant data values 

type plot outputs a message indicating that plot is a built-in function 

intro executes the source code in a function named intro which 
illustrates various MATLAB functions. 

type intro lists the source code for the intro demo program. By study- 
ing this example, readers can quickly learn many MATLAB 
commands 

graf2d demonstrates X-Y graphing 

graf3d demonstrates X-Y-Z graphing 

help diary provides instructions on how results appearing on the com- 


mand screen can be saved into a file for later printing, edit- 
ing, or merging with other text 

diary fil. name instructs MATLAB to record, into a file called fil name, 
all text appearing on the command screen until the user 
types diary off. The diary command is especially useful 
for making copies of library programs such as zerodemo 

demo initiates access to a lengthy set of programs demonstrating 
the functionality of MATLAB. It is also helpful to source 
list some of these programs such as: zerodemo, fitdemo, 
quaddemo, odedemo, ode45, fftdemo, and truss 


E: SeSe 


1.3 Example Problem on Financial Analysis 


Let us next analyze a problem showing several language constructs of MATLAB 
programming. Most of this book is devoted to solving initial value and boundary 
value problems for physical systems. For sake of variety we study briefly an elemen- 
tary example useful in business, namely, asset growth resulting from compounded 
investment return. 

The differential equation 


Q'(t) = RQ(t) + S exp( At) 


describes growth of investment capital earning a rate of investment return R and 
augmented by a saving rate $ exp( At). The general solution of this first order linear 
equation is 


Q(t) = exp(Rt) | Q(0) «fs exp((A — R)t)dt 
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A realistic formulation should employ inflation adjusted capital defined by 


q(t) = Q(t) exp(- 11) 


where J denotes the annual inflation rate. Then a suitable model describing capital 
accumulation over a saving interval of tı years, followed by a payout period of t2 
years, is characterized as 


q(t) =rq(t) + [s(t € t1) — pexp(-ati)(t > t1)] exp(at), q(0) = qo. 


The quantity (t < tı) equals one for ¢ < tı and is zero otherwise. This equation 
also uses inflation adjusted parameters r = R — I anda = A — I. The parameter s 
quantifies the initial saving rate and p is the payout rate starting at t = t1. 

It is plausible to question whether continuous compounding is a reasonable alter- 
native to a discrete model employing assumptions such as quarterly or yearly com- 
pounding. It turns out that results obtained, for example, using discrete monthly 
compounding over several years differ little from those produced with the continuous 
model. Since long term rates of investment return and inflation are usually estimated 
rather than known exactly, the simplified formulas for continuous compounding il- 
lustrate reasonably well the benefits of long term investment growth. Integrating the 
differential equation for the continuous compounding model gives 


q(t) = qoexp(rt) + s[h(t) — (t > t1) exp(ati)h(t — t1)] — p(t > t) h(t — t1) 


where h(t) = [exp(rt) — exp(at)|/(r — a). The limiting case for r = a is also 
dealt with appropriately in the program below. At time T2 = tı + t» the final capital 
q2 = q(T2) is 


q2 = qo exp(rT») + [exp(rt1) — exp(at1)] exp(rt) 


r—a 


[exp(rt2) — exp(atz)]. 

r—a 

Therefore, for known r, a, 11,15, the four quantities qo, qo, 5, p are linearly related 
and any particular one of these values can be found in terms of the other three. For 
instance, when qo = q2 = O0, the saving factor s needed to provide a desired payout 
factor p can be computed from the useful equation 


s = p[1 — exp((a — r)t3)]/|exp(rti) — exp(atà)] 


A MATLAB program using the above equations was written to compute and plot 
q(t) for general combinations of the nine parameters R, A, I, t1, t2, qo, $, p, qo. The 
program allows data to be passed through the call list of function finance, or the 
interactive input is activated when no call list data is passed. Finance calls function 
inputv to read data and the function savespnd to evaluate q(t). First we will show 
some numerical results and then discuss selected parts of the code. Consider a case 
where someone initially starting with $10,000 of capital expects to save for 40 years 
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and subsequently draw $50,000 annually from savings for 20 years, at which time 
the remaining capital is to be $100,000. Assume that the investment rate before in- 
flation is R = 8 while the inflation rate is J = 4. During the 60 year period, annual 
savings, as well as the pension payout amount, are to be increased to match inflation, 
so that A = 4. The necessary value of s and a plot of the inflation adjusted assets 
as a function of time are to be determined. The program output shows that when the 
unknown value of s was input as nan (meaning Not-a-Number in IEEE arithmetic), a 
corrected value of $6417 was computed. This says that, with the assumed rate of in- 
vestment return, saving at an initial rate of $6417 per year and continually increasing 
that amount to match inflation will suffice to provide the desired inflation adjusted 
payout. Furthermore, the inflation adjusted financial capital accumulated at the end 
of 40 years is $733,272. The related graph of q(t) duplicates the data listed on the 
text screen. The reader may find it interesting to repeat the illustrative calculation 
assuming R = 11, in which case the saving coefficient is greatly reduced to only 
$1060. 


E: SeSe 


1.4 Computer Code and Results 


A computer code which analyzes the above equations and presents both numerical 
and graphical results appears next. First we show the program output, and then 
discuss particular aspects of the program. 


1.4.1 Computer Output 


>> finance; 


ANALYSIS OF THE SAVE-SPEND PROBLEM BY SOLVING 
q’ (t) =r*q(t)+[s* (t<=t1) -p* (t>t1) *exp(-a*t1)]*exp(a*t) 
where r=R-I, a=A-I, and q(0)=q0 


To list parameter definitions enter y 
otherwise enter n ? y 

INPUT QUANTITIES: 

R - annual percent earnings on assets 

- annual percent inflation rate 

annual percent increase in savings 
to offset inflation 

r,a - inflation adjusted values of R and I 


D H 
| 


tl - saving period (years), 0<t<t1 
t2 - payout period (years), tl<t<(t1+t2) 
S - saving rate at t=0, ($K). Saving is 
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expressed as s*exp(a*t), O<t<tl 


p - payout rate at t=t1, ($K). Payout is 
expressed as 
-p*exp(a*(t-t1)), tl<t<(t1+t2) 

q0 - initial savings at t=0, ($K) 

q2 - final savings at t=T2=t1+t2, (SK) 

OUTPUT QUANTITIES: 

q - vector of inflation adjusted savings 
values for 0 <= t <= (t1+t2) 

t - vector of times (years) corresponding 


to the components of q 


ql - value of savings at t=t1, when the 


saving period ends 


Press return to continue 


Input R,A,I (try 11,4,4) ? 8,4,4 
Input t1,t2 (try 40,20) ? 40,20 
Input q0,s,p,q2 (try 20,5,nan,40) 


PROGRAM RESULTS 


t1 t2 R 
40.000 20.000 8.000 
q0 q1 q2 


20.000 733.272 100.000 


>> 
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? 20,nan,50,100 


TOTAL SAVINGS WHEN T1 = 40, T2 = 20, s = 6.4175, p - 50 
800 T T T 


700 


600 


a 
e 
o 


TOTAL SAVINGS IN $K 
co BR 
[s o 
6 6 


200 


100 


L L L 
0 10 20 30 40 50 60 
TIME IN YEARS 


0 fi fi 


Figure 1.1: Accumulated Assets versus Time 
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1.4.2 Discussion of the MATLAB Code 


Let us examine the following program listing. The line numbers, which are not 
part of the actual code, are helpful for discussing particular parts of the program. A 
numbered listing can be obtained with the MATLAB command dbtype. 

Line Comments 

1-2 Three dots ... are used to continue function finance to handle the 
long argument list. The output list duplicates some input items to 
handle cases involving interactive input. 

3-16 Comment lines always begin with the ?6 symbol. At the inter- 
active command level in MATLAB, typing help followed by a 
function name will print documentation in the first unbroken se- 
quence of comments in a function or script file. 


20-25 The output heading is printed. Note that q”(t) is used to print q'(t) 
because special characters such as ° or % must be repeated. 

29-50 Intrinsic function char is used to store descriptions of program 
variable in a character matrix. 

59 Function nargin checks whether the number of input variables is 
zero. If so, data values are read interactively. 

68-69 Function inputv reads several variables on the same line. 

70-78 While 1,...,end code sequence loops repeatedly to check data in- 
put. Break exits to line 80 if data are OK. 

85-97 Set multiplier constants to solve for one unknown variable among 
q0, s, p, q2. 

99-105 Determine time vectors to evaluate the solution. Cases where t1 
or t2 are zero require special treatment. 

108-112 Intrinsic function isnan is used to identify the variable which was 


input as nan. 

115-116 User defined function savespnd is used to evaluate q(t) and q(t1). 

119-127 Program results are printed with a chosen format. The statement 
b=inline(’ blanks(j)’,’j’) just shortens the name for intrinsic func- 
tion blanks. 

130-139 Draw the graph along with a title and axis labels. 

141-153 Create a label containing data values. Position it on the graph. 

154 Turn the grid off and bring the graph to the foreground. 

158-176 Function savespnd evaluates q(t). The formula for r=a results 
from the limiting form of q(t) as parameter a tends to r. 

180-213 Function inputv generalizes the intrinsic function input to read 
several variables on the same line. Inputv is used often through- 
out this text. 
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1.4.3 Code for Financial Problem 


Program finance 


e ù N Hn 


. function [q,t,R,A,I,t1,t2,s,p,q0,q1,q2]=finance... 


(R;A,I,t1,t2,8,p,q0,q2) 
^ [q, t, R, A, I, t1, t2, S, p, q0,q1, q2] "finance... 
^ (R,A,1I,t1,t2,8,p,q0,q2) 


^ This function solves the SAVE-SPEND PROBLEM 
^ where funds earning interest are accumulated 
^ during one period and paid out in a subsequent 


. ^ period. The value of assets is adjusted to 
. ^ account for inflation. This problem is 

. ^ governed by the differential equation 

: A q? (t)=r*q(t)+[s*(t<=t1)... 

=h -p*(t»ti)*exp(-a*ti)]*exp(a*t) where 
5 4 r-R-I, a-A-I and the remaining parameters 
: ^ are defined below 


; ^ User m functions required: inputv, savespnd 


. disp 7), disp(D : 

;: "ANALYSIS OF THE SAVE- SPEND PROBLEM BY SOLVING’]) 
. disp(... 

: g^ Ora) Bex Ce cet p o tU: 


'exp(-a*t1)]*exp(a*t)?]), disp(... 
^where r-R-I, a-A-I, and q(0)=q0’), disp(’ ?) 


; ^ Create a character variable containing 
. ^ definitions of input and output quantities 
. explain-char(?INPUT QUANTITIES:', 


:?R  - annual percent earnings on assets’, 
qs - annual percent inflation rate', 
:^À  - annual percent increase in savings’, 


: to offset inflation’, 
’ r,a - inflation adjusted values of R and I’, 


s ?ti - saving period (years), O<t<t1’,.. 
. ^t2 - payout period (years), ti<t<(t1i+t2)’, 
."?S | - saving rate at t-0, ($K). Saving is’, 


; expressed as s*exp(a*t), O<t<t1’, 
"p  - payout rate at t=t1, ($K). Payout is’, 


eo expressed as’, 
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œo œ 
ÍÓ O 


p3 -p*exp(a*(t-t1)), ti<t<(t1+t2)’,... 

.?q0 - initial savings at t=0, ($K)’,... 

.?q2 - final savings at t=T2=t1+t2, ($K)’,’ ’,... 
: "DUTPUT QUANTITIES:’,... 

5 ?q - vector of inflation adjusted savings’,... 


; values for 0 <= t <= (t1i+t2)’,... 


. ?t - vector of times (years) corresponding’,... 
p? to the components of q’,... 

;:^qi - value of savings at t-ti, when the’,... 

5o: ? saving period ends’,’ ?); 


sx 4 NOTE: WHEN R,I,A,T1,T2 ARE KNOWN,THEN FIXING 
ss: 4 ANY THREE OF THE VALUES q0,s,p,q2 DETERMINES 
sa: 4 THE UNKNOWN VALUE WHICH SHOULD BE GIVEN AS 
ss; 4 nan IN THE DATA INPUT. 


s; h Read data interactively when input data is not 
ss: ^ passed through the call list 
s; if nargin--0 


disp(C To list parameter definitions enter y?) 


. querry=input(’otherwise enter n ? ’,’s’); 

. if querry==’Y’ | querry==’y’ 

. disp(explain); disp(’Press return to continue’) 
. pause, disp? ?) 

s end 


: ^ Read multiple variables on the same line 


[R,A,I]-inputv(?Input R,A,I (try 11,4,4) ? ?); 
[t1,t2]-inputv(?Input t1,t2 (try 40,20) ? °); 


; while 1 


[q0, s, p, q2] "-inputv(.. 
^Input q0,s,p,q2 (try 20,5,nan,40) ? °); 
if sum(isnan([q0,s,p,q2]))==1, break; end 
fprintf([’\nDATA ERROR. ONE AND ONLY ’,... 
?ONE VALUE AMONG\n’,’THE PARAMETERS ’,... 
?g0,s,p,q2 CAN EQUAL nan \n\n’]) 
end 


; end 


. nt7-101; T2=t1+t2; r=(R-1)/100; a-(A-1)/100; 
; cOzexp(r*T2) ; 


: ^ q0,S,p,q2 are related by q2=c0*q0+c1*s+c2*p 
: ^ Check special case where t1 or t2 are zero 
; if ti--0 
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: disp? 7), disp(’s is set to zero when t1=0’) 


87 s=0; c1=0; 

ss else 

sz: Cl=savespnd(T2,t1,0,R,A,1,1,0); 
9: end 

91: 

ə: if t2==0 

ə: disp(’ 7), disp(’p is set to zero when t2=0’) 
94 p=0; c2=0; 

ə: else 

9: C2=savespnd(T2,t1,0,R,A,1,0,1); 
or. end 


: if ti--0 | t2--0 
; t=linspace(0,T2,nt)’; 
; else 


ni-max(2,fix(ti/T2*xnt)); 
n2-max(2,nt-n1)-1; 
t-[ti/ni*(0:ni1),ti4t2/n2*(1:n2)]'; 


5 end 


: 4^ Solve for the unknown parameter 

; if isnan(q0), q07 (q2-s*c1-p*c2)/c0; 
; elseif isnan(s), s-(q2-q0*c0-p*c2)/c1; 
; elseif isnan(p), p=(q2-q0*c0-s*c1)/c2; 
: else, q2=q0*c0+s*c1+p*c2; 


end 


: 4 Compute results for q(t) 
: q=savespnd(t,t1,g0,R,A,1,s,p); 
: ql=savespnd(t1,t1,q0,R,A,I,s,p); 


; 4 Print formatted results 

. b=inline(’blanks(j)’,’j’); B-b(3); d-'48.3f'; 
| "üc[d;B.d;B;d,B,d;B,;d," An^ ] disp(^ "2 

. disp([b(19),"^ PROGRAM RESULTS?]) 


: dispC[? t1 t2 Ripaus 
, A I?’]) 

. fprintf(u,t1,t2,R,A,I), disp? ?) 

; dispCD? q0 qí q2* yos 


$ 


S P 
: fprintf (u,q0,q1,q2,s,p), disp(’ 7), pause(1) 


; 4 Show results graphically 
» plot(t,q,"k^) 
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. title([ INFLATION ADJUSTED SAVINGS WHEN ’,... 


’S = ^,num2str(s),? AND P = ?,num2str(p)]); 


33: titl- Sw 
a4 [TOTAL SAVINGS WHEN T1 = ’ ,num2str(t1),... 
3: ^, T2 = ?,num2str(t2),?, s = ’,num2str(s),... 


|. p= *inum2str(p)l; title(titl) 


ss xlabel(? TIME IN YEARS’) 
3: ylabel(C TOTAL SAVINGS IN $k’) 


; ^ Character label showing data parameters 
; label=char(... 


sprintf CR = 48:3f* R04 
sprintf (I = %8.3f?,I),... 
sprintf (°A 48.3f£?,A),... 


sprintf (°q0 = %8.3f’,q0),... 
Bprintf(^gl = %8.3f?’,q1),... 
sprintf (°q2 = %8.3f’ ,q2)); 


: w=axis; ymin-w(3); dy=w(4)-w(3); 
so: xmin-w(1); dx-w(2)-w(1); 

si: ytop=ymint+.8*dy; Dy-.065*dy; 

52: Xlft-xmin*0.04*dx; 

ss: text(xlft,ytop,label) 

si grid off, shg 


ss function q-savespnd(t,ti,q0,R,A,I,s,p) 


: 4 q»savespnd(t,t1,90,R, A, I,s,p) 


: 4 This function determines q(t) satisfying 
: h q? (t)=r*qg+[s* (t<=t1)-p*(t>ti)*... 

s 4 exp(-a*ti)]*exp(a*t), with q(0)=q0, 

4 r-(R-I)/100; a-(A-1)/100 


; r=(R-I)/100; a=(A-1)/100; c=r-a; T=t-t1; 
: if r^-a 


q-q0*exp(r*t)-*s/c*(exp(r*t)-exp(a*t))... 
-(p*s*exp(a*t1))/c*(T»0) .*(... 
exp (r*T) -exp (a*T) ) ; 


3 else 4 limiting case as a=>r 


q-q0O*exp(r*t)*s*t.*exp(r*t)... 
-(p*s*exp(r*t1)).*T.*(T»20) .*exp(r*T) ; 
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95: 


; 4 This function reads several values on one 


; ^ line. The items should be separated by 


. 4 commas or blanks. 


; 4 prompt - A string preceding the 
C data entry. It is set 
2 to ? ? ? if no value of 
2 prompt is given. 
3 ^ al,a2,...,a_nargout - The output variables 
xi that are created. If 

^ not enough data values 
ko are given following the 
hy prompt, the remaining 
oh undefined values are 
p set equal to NaN 


: 4 A typical function call is: 
: 4 [A,B,C,D]-inputv(? Enter values of A,B,C,D: ?) 


: if nargin--0, prompt=’ ? ’; end 

: u=input(prompt,’s’); v-eval(['[?,u,?]?]); 
; ni-length(v); no-nargout; 

: varargout-cell(1,no); k=min(ni,no); 

: for j=1:k, varargout{j}=v(j); end 

: if no>ni 

: for j=ni+1:no, varargout{j}=nan; end 


3 end 
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Chapter 2 


Elementary Aspects of MATLAB Graphics 


2. Introduction 


MATLAB’s capabilities for plotting curves and surfaces are versatile and easy to 
understand. In fact, the effort required to learn MATLAB would be rewarding even 
if it were only used to construct plots, save graphic images, and output publication 
quality graphs on a laser printer. Numerous help features and well-written demo pro- 
grams are included with MATLAB. By executing the demo programs and studying 
the relevant code, users can quickly understand the techniques necessary to imple- 
ment graphics within their programs. This chapter discusses a few of the graphics 
commands. These commands are useful in many applications and do not require 
extensive time to master. This next section provides a quick overview of the ba- 
sics of using MATLAB’s graphics. The subsequent sections in this chapter present 
several additional examples (summarized in the table below) involving interesting 
applications which use these graphics primitives. 


| Example — | | Purpose |^ s": | 


Polynomial Inter- | 2-D graphics and polynomial interpolation 
Conformal 2-D graphics and some aspects of complex 


Pendulum Motion | 2-D graphics animation and ODE solution 


Linear Vibration | Animated spring-mass response 
Model 


String Vibration | 2-D and 3-D graphics for a function of form 
huc lied 
Space Curve Ge- | 3-D graphics for a space curve 
ee RN 
faces 
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EEE 


2.2 Overview of Graphics 


The following commands should be executed since they will accelerate the under- 
standing of graphics functions, and others, included within MATLAB. 


help help discusses use of help command. 

help lists categories of help. 

help general lists various utility commands. 

help more describes how to control output paging. 

help diary describes how to save console output to a file. 

help plotxy describes 2D plot functions. 

help plotxyz describes 3D plot functions. 

help graphics describes more general graphics features. 

help demos lists names of various demo programs. 

intro executes the intro program showing MATLAB 
commands including fundamental graphics capa- 
bilities. 

help funfun describes several numerical analysis programs 
contained in MATLAB. 

type humps lists a function employed in several of the MAT- 
LAB demos. 

fplotdemo executes program fplotdemo which plots the 
function named humps. 

help peaks describes a function peaks used to illustrate sur- 
face plots. 

peaks executes the function peaks to produce an inter- 
esting surface plot. 

spline2d executes a demo program to draw a curve through 
data input interactively. 


The example programs can be studied interactively using the type command to list 
programs of interest. Library programs can also be inspected and printed using the 
MATLAB editor, but care should be taken not to accidentally overwrite the original 
library files with changes. Furthermore, text output in the command window can be 
captured in several ways. Some of these are: (1) Use the mouse to highlight material 
of interest. Then use the "Print Selected" on the file menu to send output to the 
printer; (2) Use CTRL-C to copy outlined text to the clipboard. Then open a new file 
and use CTRL-V to paste the text into the new file; and (3) Use a diary command 
such as diary mysave.doc to begin printing subsequent command window output 
into the chosen file. This printing can be turned off using diary off. Then the file can 
be edited, modified, or combined with other text using standard editor commands. 
More advanced features of MATLAB graphics, including handle graphics, control 
of shading and light sources, creation of movies, etc., exceed the scope of the present 
text. Instead we concentrate on using the basic commands listed below and on pro- 
ducing simple animations. The advanced graphics can be mastered by studying the 
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MATLAB manuals and relevant demo programs. The principal graphing commands 
discussed here are 


plot draw two-dimensional graphs 
xlabel, ylabel, | define axis labels 
zlabel 
title define graph title 
axis set various axis parameters (min, max, etc.) 
legend show labels for plot lines 
shg bring graphics window to foreground 
text place text at selected locations 
grid turns grid lines on or off 
mesh draw surface using colored lines 
surf draw surface using colored patches 
hold fix the graph limits between successive plots 
view change surface viewing position 
drawnow empty graphics buffer immediately 
zoom magnify graph or surface plot 
clf clear graphics window 
contour draw contour plot 
ginput read coordinates interactively 


All of these commands, along with numerous others, are extensively documented by 
the help facilities in MATLAB. The user can get an introduction to these capabilities 
by typing “help plot" and by running the demo programs. The accompanying code 
for the demo program should be examined since it provides worthwhile insight into 
how MATLAB graphics is used. 


E EE ELTTTIEETTETETTÉETÉETTEÉTLTÉTÉTTTTIÍÉÍÉTTITILITIIIIIIIIII 


2.3 Example Comparing Polynomial and Spline Interpolation 


Many familiar mathematical functions such as arctan(x), exp(x), sin(x), etc. 
can be represented well near z — 0 by Taylor series expansions. If a series expansion 
converges rapidly, taking a few terms in the series may produce good polynomial ap- 
proximations. Assuming such a procedure is plausible, one approach to polynomial 
approximation is to take some data points, say (r;,y;), 1 < i < n and determine the 
polynomial of degree n — 1 passing through those points. It appears reasonable that 
using evenly spaced data is appropriate and that increasing the number of polyno- 
mial terms should improve the accuracy of the approximating function. However, it 
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has actually been shown that a polynomial through points on a function y(x), where 
the x values are evenly spaced, often gives approximations which are not smooth 
between the data points and tend to oscillate at the ends of the interpolating interval 
[20]. Attempting to reduce the oscillation by increasing the polynomial order makes 
matters worse. Surprisingly, a special set of unevenly spaced points bunching data 
near the interval ends according to 


xj = (a + b)/2 + (a — b) /2 cos[r(j — 1/2)/n, 1€ j <n 


for the interval a < x < b turns out to be preferable. This formula defines what are 
called the Chebyshev points optimally chosen in the sense described by Conte and 
de Boor [20]. 

The program below employs MATLAB functions polyfit, polyval, and spline to 
produce interpolated approximations to the known function 1/(14-z?). The example 
illustrates how strongly the spacing of the data points for polynomial interpolation 
can influence results, and also shows that a spline interpolation can be a better choice 
than high order polynomials. A least square fit polynomial of degree n through data 
points defined by vectors (x4, ya) is given by 


p(x) = polyval(polyfit (xg, ya, n), x). 


When the polynomial order is one less than the number of data points, the polyno- 
mial passes through the data points exactly, but it may still produce unsatisfactory 
interpolation because of large oscillations between the data points. A preferable ap- 
proximation is often provided by function spline giving a piecewise cubic curve with 
continuous first and second derivatives. The program passes polynomials of degree 
ten through a set of evenly spaced points and a set of Chebyshev points lying in 
the range —4 < x < 4. A spline curve passed through the equidistant points is 
constructed in addition to a least square polynomial fit employing 501 points. Two 
graphs are created which show results for x > 0. Only results for positive x were 
plotted to provide more contrast between different interpolation results. Figure 2.1 
plots the exact function, the spline curve, and the polynomial through the equidistant 
data. The polynomial is clearly an unsatisfactory approximation, whereas the spline 
appears to deviate imperceptibly from the exact function. By using the interactive 
zoom feature in MATLAB graphics, parts of the graph can be magnified so the dif- 
ference between the spline and exact results is clearly visible. Figure 2.2 compares 
the exact function with a polynomial employing the Chebyshev points. This result is 
much better than what is produced with equidistant data. An approximation gener- 
ated from a least square fit polynomial and 501 data points is also shown. This curve 
fits the exact function unpredictably and significantly misses the desired values at 
x = 0 and x = +4. While general conclusions about interpolation should not be 
drawn from this simple example, it certainly implies that high order polynomial in- 
terpolation over a large range of the independent variable should be used cautiously. 

The graphics functions used in the program include plot, title, xlabel, ylabel, and 
legend. Some other features of the program are summarized in the table preceding 
the code listing. 
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function values 


SPLINE CURVE AND POLYNOMIAL USING EVEN SPACING 


1.4 


T 
— Exact Function 


Spline Curve 


1.2H du Interpolation Points 


— - Poly. for Equal Spacing 


0 0.5 


1.5 2 2.5 3 3.5 4 
x axis 


Figure 2.1: Spline and Polynomial Interpolation Using Equidistant Points 
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function values 


LEAST SQUARE POLY. AND POLY. USING CHEBYSHEV POINTS 


1 T 
—— Exact Function 
EP ENN — - Poly. for Chebyshev Points 
0.9- E Least Square Poly. Fit 
\ o Interpolation Points 
0.8- 
07- 
0.6- 
0.5- 
0.4} 
0.3} 
0.2} 
0.1- 
0 1 $ 
0 2 
x axis 
Figure 2.2: Interpolation Using Chebyshev Points and 501 Least Square 


Points 
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12,17,21 several inline functions are defined 


27 function linspace generates vector of equidistant points 


27,28,34-37 | inline functions called 


intrinsic spline function is used 
graph legends created 
graph images saved to files 


Program polyplot 

1i function polyplot 

2 ^ Example:  polyplot 

3: y ires eee CINES gays Ue 

4 ^ This program illustrates polynomial and 
5 ^ Spline interpolation methods applied to 
« 4 approximate the function 1/(1*x^2). 

Ts VA 

s 4 User inline functions used: 


:⁄% cbp, Ylsq, yexact 


: ^ Function for Chebyshev data points 
. Cbp=inline([’ (atb)/2+(a-b)/2*cos(pi/n*’,... 


? (1/2:n))?],?a?,?b?’,?n?); 


. ^ Polynomial of degree n to least square fit 
. ^ data points in vectors xd,yd 

. Ylsq=inline(’ polyval(polyfit(xd,yd,n),x)’,... 
. xd? ,'yd? ; ^n? ; ?!x?/); 


. ^ Function to be approximated by polynomials 
. yexact-inline(?1./(1*abs(x).^p)?,?p?^,?x?); 


: ^ Set data parameters. Functions linspace and 
2: ^ cbp generate data with even and Chebyshev 

. 4 Spacing 

2: N=10; nd=n+1; a--4; b=4; p=2; 

2: Xeven-linspace(a,b,nd); yeven=yexact(p,xeven) ; 
2: xCbp=cbp(a,b,nd); ycbp=yexact(p,xcbp) ; 


: nlsq-501; % Number of least square points 
. xlsq=linspace(a,b,nlsq); ylsq-yexact(p,xlsq); 


: ^ Compute interpolated functions for plotting 
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34 Xplt=linspace(0,b,121); yplt=yexact(p,xplt) ; 
s yyeven=Ylsq(xeven,yeven,n,xplt) ; 

36: yycbp=Ylsq(xcbp, ycbp,n,xplt) ; 

3: yylsq=Ylsq(xlsq,ylsq,n,xplt) ; 

ss yyspln-spline(xeven,yeven,xplt); 


; ^ Plot results 

; j=6:nd; ^ Plot only data points for x>=0 
«plot(xplt,yplt,"-',xplt,yyeven,'--*,... 

: Xplt,yyspln,'.',xeven(j),yeven(j),... 


?s?,’? linewidth’ ,2) 


s legend(’Exact Function’,... 


"Poly. for Even Spacing’,... 
’ Spline Curve’,... 
’ Interpolation Points’ ,2) 


. title([’SPLINE CURVE AND POLYNOMIAL ^, 

so: "USING EVEN SPACING']) 

5s: Xlabel(?x axis’), ylabel(’function values’) 
s: ^ print(gcf,’-deps’,’splpofit’) 

5: Shg, pause 

sa: plot (xplt,yplt,’-?’,xplt,yycbp,?--?,... 

ss: xplt,yylsq,’.’,xcbp(j),ycbp(j),’s’,... 

se; linewidth’ ,2) 

s: Legend(’Exact Function’,... 


’Poly. for Chebyshev Points’,... 
’ Least Square Poly. Fit’,... 
’ Interpolation Points’ ,1) 


. title([’LEAST SQUARE POLY. AND POLY. ’,... 
. "USING CHEBYSHEV POINTS']) 

. Xlabel(’x axis’), ylabel(’function values’) 
v4 print (gcf,?’-deps’,’lsqchfit’) 

s shg, disp(’ ’), disp’ All Done?) 


SS ee 


2.4 Conformal Mapping Example 


This example involves analytic functions and conformal mapping. The complex 


function w(z) which maps |z| < 1 onto the interior of a square of side length 2 can 
be written in power series form as 


w(z) = 5 p uH 
k=0 


© 2003 by CRC Press LLC 


where 
uci 


and c is a scaling coefficient chosen to make z — 1 map to w — 1 (see reference 
[75]). Truncating the series after some finite number of terms, say m, produces an 
approximate square with rounded corners. Increasing m reduces the corner round- 
ing but convergence is rather slow so that using even a thousand terms still gives 
perceptible inaccuracy. The purpose of the present exercise is to show how a polar 
coordinate region characterized by 


i -e| CDO 
p k!(4k + 1) 


z=re ri <r<r:, 01 <0< 0 

transforms and to exhibit an undistorted plot of the region produced in the w-plane. 
The exercise also emphasizes the utility of MATLAB for handling complex arith- 
metic and complex functions. The program has a short driver squarrun and a func- 
tion squarmap which computes points in the w region and coefficients in the series 
expansion. Salient features of the program are summarized in the table below. 

Results produced when 0.5 < r < 1 and0 < 0 < 2r by a twenty-term series 
appear in Figure 2.3. The reader may find it interesting to run the program using sev- 
eral hundred terms and take 0 < 0 < 7/2. The corner rounding remains noticeable 
even when m = 1000 is used. Later in this book we will visit the mapping problem 
again to show that a better approximation is obtainable using rational functions. 


- functions input, disp, fprintf, and read are 
used to input data interactively. Several dif- 
ferent methods of printing were used for pur- 
poses of illustration rather than necessity. 
function squarmap generates results. 
function genprint is a system dependent rou- 
tine which is used to create plot files for later 
printing. 

squarmap | 31-33 | functions linspace and ones are used to gen- 
erate points in the z-plane. 


series coefficients are computed using 
cumprod and the mapping is evaluated using 
polyval with a matrix argument. 

scale limits are calculated to allow an undis- 


torted plot of the geometry. Use is made of 

MATLAB functions real and imag. 

loops are executed to plot the circumferential 

lines first and the radial lines second. 
cubrange function which determines limits for a square 

or cube shaped region. 
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Mapping of a Square Using a 20- Term Polynomial 


y axis 
o 
T 


-1 -0.8 -0.6 -0.4 -02 0 02 04 06 08 1 
x axis 


Figure 2.3: Mapping of a Square Using a 20-Term Polynomial 
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MATLAB Example 


Program squarrun 


; function squarrun 
. ^ Example: squarrun 


s 4 Driver program to plot the mapping of a 

« 4 circular disk onto the interior of a square 
7 h by the Schwarz-Christoffel transformation. 
8 


» h User m functions required: 
10: A squarmap, inputv, cubrange 


vw: ^ Illustrate use of the functions input and 
: ^ inputv to interactively read one or several 
1; h data items on the same line 


16: fprintf(’\nCONFORMAL MAPPING OF A SQUARE ’) 
iz. fprintf (BY USE OF A\n’) 

is, fprintf (’ TRUNCATED SCHWARZ-CHRISTOFFEL ’) 
19: fprintf (’SERIES\n\n’ ) 


2: fprintf(?Input the number of series ’) 
2: fprintf(?terms used ’) 
23: m=input(’ (try 20)? ’); 


25; ^ Illustrate use of the function disp 


26: disp(’’) 

27, Str=[’\nInput the inner radius, outer ’ 
28: ’ radius and number of increments ’ 
29: "^AnCory .5,1,8)\n’]; 

30: fprintf (str); 


a» ^ Use function inputv to input several variables 
ax [r1,r2,nr]=inputv; 


as ^ Use function fprintf to print more 
3: 4 complicated heading 
37: Str=[’\nInput the starting value of ’ 


38: ^theta, the final value of theta Xn? 
39: ^and the number of theta increments ’ 
40: '(the angles are in degrees) ’ 
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nm 


QU a oc gt o qg gg og Go a 
e 
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e ù N e O O 


e ceo 


go. c4 m 


"An(try. 0,360,120) n7]; 


. fprintf (str); [t1,t2,nt]=inputv; 

: ^ Call function squarmap to make the plot 
: hold off; clf; 

. [w,b]=squarmap(m,r1,r2,nr,t1,t2,nt+1); 


. ^ Save the plot 
. 4 print -deps squarplt 


. disp 7); disp A11 Done’); 


. function [w,b]=squarmap(m,r1,r2,nr,t1,t2,nt) 


^ [w,b]-squarmap(m,ri,r2,nr,ti,t2,nt) 


^ This function evaluates the conformal mapping 


: ^ produced by the Schwarz-Christoffel 

. ^ transformation w(z) mapping abs(z)<=1 inside 
. ^ a square having a side length of two. The 

. ^ transformation is approximated in series form 
. ^ which converges very slowly near the corners. 
65: 


hm - number of series terms used 
.%» ri,r2,nr - abs(z) varies from ri to r2 in 
A nr steps 
. 4 ti,t2,nt - arg(z) varies from t1 to t2 in 
x4 nt steps (ti and t2 are measured 
X in degrees) 
AW - points approximating the square 
A b - coefficients in the truncated 
=% series expansion which has the 
h form 

% 
=% w(z)=sum({j=1:m},b(j)*z*(4*j-3)) 


: ^ User m functions called: cubrange 


: ^ Generate polar coordinate grid points for the 
. ^ map. Function linspace generates vectors 

. 4 with equally spaced components. 

. r-linspace(ri,r2,nr)'; 
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. t=pi/180*linspace(t1,t2,nt) ; 
. Ze (r*ones(1,nt)) .*(ones(nr,1)*exp(i*t)); 


; ^ Use high point resolution for the 
. ^ outer contour 

. touter=pi/180*linspace(t1,t2,10*nt) ; 
. Zouter-r2*exp(i*touter); 


. ^ Compute the series coefficients and 

s 4 evaluate the series 

; k=1:m-1; 

. b=cumprod([1,-(k-.75) .*(k-.5) ./ Ck. * (k* .25))]) ; 
. b=b/sum(b); w-z.*polyval(b(m:-1:1),z.^4); 

. Wouter-zouter.*polyval(b(m:-1:1),zouter.^4); 
00: 

. 4 Determine square window limits for plotting 
; uu-real([w(:) ; wouter(:)1); 

. vv=imag([w(:) ;wouter(:)]); 

; rng=cubrange([uu,vv] ,1.1); 

s axis(’square’); axis(rng); hold on 


: 4 Plot orthogonal grid lines which represent 
. 4 the mapping of circles and radial lines 

: x=real(w); y-imag(w); 

: xo=real (wouter); yo-imag(wouter); 

: plot(x,y,’-k’,x(1:end-1,:)?,y(1:end-1,:)?,... 


^k? ,x0, yo, =k") 


:% Add a title and axis labels 
; title([’Mapping of a Square Using a ’, 


num2str(m),’-term Polynomial’]) 


: Xlabel(’x axis’); ylabel(’y axis?) 
. figure(gcf); hold off; 


: function range=cubrange(xyz,ovrsiz) 
. 4 range-cubrange(xyz,ovrsiz) 


. 4 This function determines limits for a square 

. 4 or cube shaped region for plotting data values 
. 4 in the columns of array xyz to an undistorted 
; 4 scale 
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: 4 XyZ - a matrix of the form [x,y] or [x,y,z] 


hi where x,y,z are vectors of coordinate 
3: h points 
3: ^ ovrsiz - a scale factor for increasing the 
% window size. This parameter is set to 
36: h one if only one input is given. 
0 
h 
. 4 range - a vector used by function axis to set 
39: h window limits to plot x,y,z points 
-h undistorted. This vector has the form 
oe [xmin,xmax,ymin,ymax] when xyz has 
bee only two columns or the form 
3: A [xmin,xmax, ymin, ymax, zmin, zmax] 
baile when xyz has three columns. 


; if nargin--1, ovrsiz-1; end 
: pmin=min (xyz); pmax-max(xyz); pm-(pmin-*tpmax)/2; 
: pd=max (ovrsiz/2*(pmax-pmin)); 
. if length(pmin)--2 
range=pm([1,1,2,2])+pd*[-1,1,-1,1]; 
; else 

range-pm([1 1 2 2 3 3])+pd*[-1,1,-1,1,-1,1]; 
end 


z 


P 


. 4 function varargout-inputv (prompt) 
; 4 See Appendix B 


2.5 Nonlinear Motion of a Damped Pendulum 


t 


Motion of a simple pendulum is one of the most familiar dynamics examples stud- 
ied in physics. The governing equation of motion can be satisfactorily linearized for 
small oscillations about the vertical equilibrium position, whereas nonlinear effects 
become important for large deflections. For small deflections, the analysis leads to 
a constant coefficient linear differential equation. Solving the general case requires 
elliptic functions seldom encountered in routine engineering practice. Nevertheless, 
the pendulum equation can be handled very well for general cases by numerical in- 


egration. 
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Suppose a bar of negligible weight is hinged at one end and has a particle of mass 
m attached to the other end. The bar has length / and the deflection from the vertical 
static equilibrium position is called 0. Assuming that the applied forces consist of 
the particle weight and a viscous drag force proportional to the particle velocity, the 
equation of motion is found to be 

0" (7) + Loe) d + sin(6) =0 
where 7 is time, c is a viscous damping coefficient, and g is the gravity constant. 
Introducing dimensionless time, t, such that 7 = 4/1/g t gives 


0" (t) + 2:0'(t) + sin(@) = 0 


where ç = ,/I/gc/(2m) is called the damping factor. When 0 is small enough 
for sin(0) to be approximated well by 0 , then a constant coefficient linear equation 
solvable by elementary means is obtained. In the general situation, a solution can 
still be obtained numerically without resorting to higher transcendental functions. If 
we use ¢ = 0.10 for illustrative purposes, and let 


z= [6(t); 6'(t)] 
then the original differential equation expressed in first order matrix form is 
z'(t) = [z(2) ; —0.22(2) — sin(z(1)]. 


An inline function suitable for use by the ode45 integrator in MATLAB is simply 
zdot=inline(‘[z(2); -0.2*z(2)-sin(z(1))] ,'t /z'). 

A program was written to integrate the pendulum equation when the angular ve- 
locity wo for 0 = 0 is specified. For the undamped case, it is not hard to show that a 
starting angular velocity exceeding 2 is sufficient to push the pendulum over the top, 
but the pendulum will fall back for values smaller than two. For the amount of vis- 
cous damping chosen here, a value of about wo = 2.42 barely pushes the pendulum 
over the top, whereas the top is not reached for wg = 2.41. These cases vividly illus- 
trate that, for a nonlinear system, small changes in initial conditions can sometimes 
produce very large changes in the response of the system. 

In the computer program that follows, a driver function runpen controls input, 
calls the differential equation solver ode45, as well as a function animpen which 
plots 0 versus t, and performs animation by drawing successive positions of the pen- 
dulum. Because the animation routine is very simple and requires little knowledge 
of MATLAB graphics, the images and the titles flicker somewhat. This becomes 
particularly evident unless the graph axes are left off. A better routine using more 
detailed graphics commands to eliminate the flicker problem is presented in Article 
2.7 on wave motion in a string. The current program permits interactive input repeat- 
edly specifying the initial angular velocity, or two illustrative data cases can be run 
by executing the command runpen(1). The differential equation for the problem is 
defined as function zdot on lines 26 and 27. This equation is integrated numerically 
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Figure 2.4: Angular Deflection versus Time for Pendulum Pushed Over the 
Top 


by calls to function ode45 on lines 59, 75, and 80. Integration tolerance values were 
chosen at line 30, and a time span for the simulation is defined interactively at lines 
46 and 47. Function penanim(t,th,titl,tim) plots theta versus time and animates 
the system response by computing the range of (x,y) values, fixing the window size 
to prevent distortion, and sequentially plotting positions of the pendulum to show 
the motion history. The output results produced by runpen(1) are shown below for 
reference. 
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Figure 2.7: Partial Motion Trace for Pendulum Almost Pushed Over the Top 
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Program pendulum 


. function pendulum(rundemo) 

2 ^ pendulum(rundemo) 

This example analyzes damped oscillations of 
. ^ a simple pendulum and animates the motion. 

s 4 The governing second order differential 
. 4 equation is 


e w n 
E 
oa 


E theta"(t) + 0.2*theta’(t)+sin(theta) = 0 


: 4 Type pendulum with no argument for inter- 
u: 4 active input. Type pendulum(1) to run two 
: ^ example problems 


1: ^ The equation of motion can be written as 
i: 4 two first order equations: 

1: 4 theta’ (t)=w; w'(t)--.2*w-sin(theta) 

iz. ^ Letting z-[theta; w], then 

i h Z^ (t)*[z(2); -0.2*z(2)-sin(z(1))] 


20: disp( 2 ?) 

a: disp DAMPED PENDULUM MOTION DESCRIBED BY’) 
2: disp(? theta"(t)+0.2*theta’’(t)+sin(theta) = 0’) 
2: h Create an inline function defining the 

2: ^ differential equation in matrix form 

2; Zdot-inline(... 

27: > [z (2) ;-0.2*z(2)-sin(z(1))]’,’t’,’z’); 


2: 4 Set ode45 integration tolerances 
3: Ops-odeset(?reltol'/,1e-5,'abstol',1e-5); 


sz: ^ Interactively input angular velocity repeatedly 
3: if nargin-- 


3: While 1, close, disp(’ ’) 


36: disp(’Select the angular velocity at the lowest’) 
37: disp(’point. Values of 2.42 or greater push the’) 
38: disp(... 

39: >the pendulum over the top. Input zero to stop.’) 
40: w0=input(’wO = ? > ’); 
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if isempty(wO) | w0--0 
dispC ’), dispC A11 Done’), disp? 7), return 
end 
disp(’ ?) 
t-input([?'Input a vector of time values ’,... 
’ (Try 0291230) > ? ^TJ3 


displ?) 


titl=input(’Input a title for the graphs : ’,’s’); 


disp ?), disp(... 
Input 1 to leave images of all positions shown’) 
trac-input(... 

^in the animation, otherwise input 0 > ? °); 


^ Specify the initial conditions and solve the 
^ differential equation using ode45 

theta0=0; zO-[theta0;w0]; 
[t,th]-ode45(zdot,t,zO,ops); 


% Animate the motion 
animpen(t,th(:,1),titl,.05,trac) 
end 


s 4 Run two typical data cases 
: else 


%, Choose time limits for the solution 
tmax-30; n-351; t=linspace(0,tmax,n) ; 


disp(’ ?) 
disp(’Press return to see two examples’), pause 


w0-2.42; WO=num2str (w0); 
[t,th]-ode45(zdot,t, [0;w0] , ops) ; 
titl=[’PUSHED OVER THE TOP FOR WO = ?,WO0]; 
animpen(t,th(:,1), titl,.05), pause(2) 


w0-2.41; WO=num2str (w0); 

[t ,th]=ode45(zdot ,t, [0;w0] , ops) ; 

titl=[’NEARLY PUSHED OVER THE TOP FOR WO = ’,WO]; 
animpen(t,th(:,1),titl, .05) 

close, disp(’ ’), disp(’All Done’), disp(’ ?) 


;: end 
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25: 
26: 


. function animpen(t,th,titl,tim,trac) 
0 
. ^ animpen(t,th,titl,tim,trac) 


. ^ This function plots theta versus t and animates 
. ^ the pendulum motion 


ht - time vector for the solution 

. 4^ th  - angular deflection values defining the 
Ey pendulum positions 

. 4 titl - a title shown on the graphs 

. 4 tim - a time delay between successive steps of 
:% the animation. This is used to slow down 
sh the animation on fast computers 

:% trac - 1 if successive positions plotted in the 
A animation are retained on the screen, 0 
vale if each image is erased after it is 

»h drawn 


; if nargin<5, trac-0; end; if nargin<4, tim=.05; end; 
; if nargin<3, titl=’’; end 


;. 4 Plot the angular deflection 

: plot(t,180/pi*th(:,1),’k’), xlabel(’time’) 

: ylabel(’angular deflection (degrees)’), title(titl) 
: grid on, shg, disp(’ ?) 

. dispC Press return to see the animation’), pause 

. 4 print -deps penangle 


; nt-length(th); z-zeros(nt,1); 
; X"[z, sin(th)]; y=[z,-cos(th)]; 
; hold off, close 


: if trac 

axis([-1,1,-1,1]), axis square, axis off, hold on 
. end 
; for j-1:nt 

X=x(j,:); Yey(j,:); 

plot(X,Y,’k-’ ,X(2),Y(2),’ko’, ’’markersize’ , 12) 

if “trac 

axis([-1,1,-1,1]), axis square, axis off 

end 


title(titl), drawnow, shg 
if tim»0, pause(tim), end 
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132. end 
133 4 if trac--1, print -deps pentrace, end 
134: pause(1) ,hold off 


E 


2.6 A Linear Vibration Model 


Important aspects of linear vibration theory are illustrated by the one-dimensional 
motion of a mass subjected to an elastic restoring force, a viscous damping force 
proportional to the velocity, and a harmonically varying forcing function. The related 


differential equation is 


m z" (t)+ca'(t)+ka(t) = fa cos(wt)+ fosin(wt) = real(( fı — i f2) expli w t)) 


with initial conditions of z(0) = zo and z'(0) = vo. The general solution is the 
sum of a particular solution to account for the forcing function, and a homogeneous 
solution corresponding to a zero right hand side. The initial conditions are applied 
to the sum of the two solution components. The particular solution is given by 


X(t) = real(F exp(iwt)) 


with 
F = (fi —ife)/(k — mw? +icw). 


The initial conditions given by this particular solution are 
X(0) = real(F) 


and 
X'(0) = real(i w F). 


The characteristic equation for the homogeneous equation is 
ms?+cs+k=0 


which has roots 


sı = (—c + r)/(2m), s2=(-c—r)/(2m), r= Vc? — Amk. 


Then the homogeneous solution has the form 
u(t) = d(1) exp(sit) + d(2) exp(sat) 


where 
d=([l, 1; s1, s] V[xo — X(0); vo — X'(0)] 


and the complete solution is 


x(t) = u(t) + X(t). 
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A couple of special cases arise. The first corresponds to zero damping and a forcing 
function matching the undamped natural frequency, i.e., 


c=0, w= yk/m. 


This case can be avoided by including a tiny amount of damping to make c = 
2v mk /10°. The second case happens when the characteristic roots are equal. This 
is remedied by perturbing the value of c to (14- 10 79) times c. Such small changes in 
a system model where realistic physical parameters are only known approximately 
will not affect the final results significantly. 

In practice, enough damping often exists in the system to make the homogeneous 
solution components decay rapidly so the total solution approaches the particular 
solution with the displacement having the same frequency as the forcing function 
but out of phase with that force. To illustrate this effect, a program was written to 
solve the given differential equation, plot z(t), and show an animation for a block 
connected to a wall with a spring and sliding on a surface with viscous damping 
resistance. Applying the oscillating force of varying magnitude on the block helps 
illustrate how the homogeneous solution dies out and the displacement settles into a 
constant phase shift relative to the driving force. 

The following program either reads data interactively or runs a default data exam- 
ple. The solution procedure described above is implemented in function smdsolve. 
For arbitrary values of the system parameters, x(t) is plotted and a simple animation 
scheme is used to plot the block, a spring, and the applied force throughout the time 
history. Figure 2.8 shows x(t) for the default data case. The input data values for 
this case use 


[m, c, k, fi, fo, W, zo, vo, tmax, nt] <=> [1, 3, 1, 1, 0, 2, 0, 2, 30, 250]. 


Note that near ¢ = 11 , the transient and forced solution components interact so that 
the block almost pauses momentarily. However, the solution then quickly approaches 
the steady state. Figure 2.9 shows the final position of the mass and the applied force 
at the end of the chosen motion cycle. 
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Figure 2.8: Plot of x(t) for a Linear Harmonic Oscillator 
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Figure 2.9: Block Sliding On a Plane with Viscous Damping 
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Program smdplot 


38: 


A1: 


He Moe de 


. function [t,X,m,c,k,f1,f2,w,x0,vO0]- smdplot (example) 


[t,X,m,c,k,f1,f2,w,x0,vO]- smdplot (example) 

This function plots the response and animates the 
motion of a damped linear harmonic oscillator 
characterized by the differential equation 

m*x? ?+c*x’ +k*x=f1*cos(w*t)+f2*sin(w*t) 

with initial conditions x(0)=x0, x'(0)-vO. 

The animation depicts forced motion of a block 
attached to a wall by a spring. The block 

slides on a horizontal plane which provides 
viscous damping. 


example - Omit this parameter for interactive input. 
Use smdplot(1) to run a sample problem. 
t,X - time vector and displacement response 
m,c,k - mass, damping coefficient, 
Spring stiffness constant 
fi1,f2,w - force components and forcing frequency 
x0,vO  - initial position and velocity 


User m functions called: spring smdsolve inputv 


2» pltsave=0; disp(’ ’), disp(... 


SOLUTION OF ?), disp(... 


28 ?M*X" + CeX?? + K*X = F1*COS(W*T) + F2*SIN(W*T)?) 
2: disp(... 


WITH ANIMATION OF THE RESPONSE’) 


. disp? ?) 
m 


3: lf nargin > 0 


Example data used when nargin > 0 


m-1; c=.3; k-1; fi-1; £2=0; w=2; x0=0; v0=2; 
tmax-25; nt-250; 


. else % Interactive data input 


[m,c,k]=inputv(... 
"Input m, c, k (try 1, 23; 1) >> ? °); 


[f1,f2,w]=inputv(... 
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"Input-fl, f2, w (try 1, 0, 2) > ? °); 


[x0,v0]=inputv(... 
"Input x0, vO (try 0, 2) >> ? 7); 


[tmax,nt]-inputv(... 
'Input tmax, nt (try 30, 250) >> ? 7); 
end 


t-linspace(0,tmax,nt); 
X-smdsolve(m,c,k,f1,f2,w,x0,v0,t); 


s: ^ Plot the displacement versus time 

s: plot(t,X,’k’), xlabel(’time’) 

s: ylabel(’displacement’), title(... 

st: ? FORCED RESPONSE OF A DAMPED HARMONIC OSCILLATOR’ ) 
s: grid on, shg, disp(’ ?) 

: if pltsave, print -deps smdplotxvst; end 

. disp(’Press return for response animation’) 

: pause 


. 4^ Add a block and a spring to the displacement 
. xmx-max(abs(X)); X=X/1.1/xmx; 
s xb-[0,0,1,1,0,0]/2; yb=[0,-1,-1,1,1,0]/2; 


. ^ Make an arrow tip 
: d=.08; h=.05; 
: xtip=[0,-d,-d,0]; ytip=[0,0,0,h,-h,0]; 


. ^ Add a spring and a block to the response 

. [xs,ys]-spring; nm=length(X); ns=length(xs) ; 

. nb-length(xb); x=zeros(nm,ns+tnb) ;y=[ys, yb] ; 

. for j=1:nm, x(j,:)=[-1+(1+X(j))*xs,X(j)+xb] ; end 
s xmin-min(x(:)); xmax-max(x(:)); d=xmax-xmin; 

; xmax-xmin*i.1*d; r-[xmin,xmax,-2,2]; 

: rx=r([1 1 2]); ry=[.5,-.5,-.5]; close; 


; 4 Plot the motion 
: for j-1:nm 


^ Compute and scale the applied force 
f-fi*cosQw*t(j))*f2*sin(w*t(j)); 
f=.5*f; fa=abs(f); sf-sign(f); 
xj=x(j,:); xmaxj=max(xj); 
if sf>0 

xforc-xmaxj-*[0,fa,fa*xtip]l; 
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else 
xforc=xmaxjt+[fa,0,-xtip] ; 
end 


^ Plot the spring, block, and force 

^ plot(xj,y,rx,ry,?k',xforc,ytip,'r?) 

Aplobx].y,'"k-'rxy,ry,"k-".xfOrc.ytip; k=") 

plot(xj,y,'"'k-',xforc,ytip," k-",... 
rx,fy,!k-^.^linewidth",1) 

title(C FORCED MOTION WITH DAMPING’) 

xlabel(C FORCED MOTION WITH DAMPING’) 

axis(r), axis(’off’), drawnow 

figure(gcf), pause(.05) 


; end 
: if pltsave, print -deps smdplotanim; end 
: disp(’ 7), disp’ A11 Done?) 


: function [x,y] = spring(len,ht) 
: 4 This function generates a set of points 
. 4 defining a spring 


; if nargin--0, len=1; ht-.125; end 

: xz [0, .5, 1inspace(1,11,10),11.5,12] ; 
: yz [ones (1,5) ; -ones (1,5)] ; 

: y=[0;0;y(:);0;0]’; y=ht/2/max(y) *y; 
; x=len/max (x) *x; 


. function [x,v]l=smdsolve(m,c,k,f1,f2,w,x0,v0,t) 
: 4 ([x,v]l=smdsolve(m,c,k,f1,£2,w,x0,v0,t) 
. 4 This function solves the differential equation 


O4 m*x?? (t)*c*x? (t) *k*x(t)2f1*cos (wet) +f£2*sin (w*t) 
; 4 with x(0)=x0 and x’ (0)=v0 


. 4 m,c,k - mass, damping and stiffness coefficients 
: 4 f£1,f2 - magnitudes of cosine and sine terms in 
2p A the forcing function 
^w - frequency of the forcing function 
algo te - vector of times to evaluate the solution 
h x,V - computed position and velocity vectors 
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3s Ccrit-2*sqrt(m*k); wn=sqrt (k/m); 


3: ^ If the system is undamped and resonance will 
36: 4 occur, add a little damping 
37: if c--0 & w--wn; c-ccrit/1e6; end; 


3» ^ If damping is critical, modify the damping 
a: ^ very slightly to avoid repeated roots 
4: if c==ccrit; c-c*(1*1e-6); end 


as 4 Forced response solution 

aa: a-(fi-i*f2)/(k-m*w^2ti*c*w); 

4; XO=real(a); VO-real(i*w*a); 

4: X-real(a*exp(i*w*t)); V-real(i*w*a*exp(i*w*t)); 


as: 4 Homogeneous solution 

a: r-sqrt(c^2-4*m*k); 

; S12 (-c*r)/(2xm) ; s2=(-c-r)/(2*m) ; 
: p=[1,1;s1,s2]\[x0-X0;v0-VO] ; 


NM e Oo 


. 4 Total solution satisfying the initial conditions 
; x»X*real(p(1)*exp(si*t)*p(2)*exp(s2*t)); 
; veV*real(p(1)*si*exp(si*t)*p(2)*s2*exp(s2*t)); 


ot Ee Ww 


E 
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. 4 function [ai1,a2,...,a nargout]-inputv(prompt) 
; 4 See Appendix B 


2 


E: SeSe 


2.7 Example of Waves in an Elastic String 


One-dimensional wave propagation is illustrated well by the response of a tightly 
stretched string of finite length released from rest with given initial deflection. The 
transverse deflection y(x, t) satisfies the wave equation 


a^ yas = Yer 
and the general solution for an infinite length string, released from rest, is given by 
y(x, t) = [F(a — at) + F(a + at)]/2 


where F(x) is the initial deflection for —oo < x < oo. The physical interpretation 
for this equation is that the initial deflection splits in two parts translating at speed 
a,with one part moving to the right and the other moving to the left. The translating 
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wave solution can be adapted to handle a string of finite length l by requiring 


y(0, t) = y(L t) = 0. 


These end conditions, along with initial deflection f(x) ( defining F(x) between 0 
and [ ), are sufficient to continue the solution outside the original interval. We write 
the initial condition for the finite length string as 


ye, 0) = f(a), 0« x«t. 


To satisfy the end conditions, F(x) must be an odd-valued function of period 21. 
Introducing a function g(x) such that 


g(t) = f(x), 0S z «1 


and 
g(x) = —f(21— x), L « x € 2l 


leads to 
F(x) = sign(z)g(rem(abs(z), 2/)) 


where the desired periodicity is achieved using the MATLAB remainder function, 
rem. This same problem can also be solved using a Fourier sine series (see chapter 
9). For the present we concentrate on the solution just obtained. 

A program was written to implement the translating wave solution when f(x) 
is a piecewise linear function computed using interp1. The system behavior can 
be examined from three different aspects. 1) The solution y(z, t) for a range of x 
and ¢ values describes a surface. 2) The deflection curve at a particular time tọ is 
expressed as y(z,to), 0 < x < l. 3) The motion history at a particular point xo 
is y(zo,t), t > 0. The nature of F(x) implies that the motion has a period of 
21/a. Waves striking the boundary are reflected in inverted form so that for any time 
y(x,t+1/a) = —y(z, t). The character of the motion is typified by the default data 
case the program uses to define a triangular initial deflection pattern where 


a=1 


, 12 1, xd = (0, 0.33, 0.5, 0.67, 1], yd = [0, 0, —1, 0, 0]. 


The program reads the wave speed, the string length, and data points specifying the 
initial deflection. The solution is evaluated for a range of x,t values. The function 
plot3 was used to create Figure 2.10, which is a three-dimensional plot of traces of 
the string deflection for a sequence of times. Figure 2.11 shows the string position 
at t = 0.33. Figure 2.12 plots the deflection history at position x = 0.25. Finally, 
a function to animate the solution over two motion cycles illustrates how the initial 
deflection splits, translates, and reflects from the boundaries. In an attempt to illus- 
trate successive positions assumed in the animation, traces of the motion for a brief 
period are shown in Figure 2.13 
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Figure 2.10: String Position as a Function of Position and Time 
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Figure 2.11: String Deflection when t = 0.33 
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DEFLECTION HISTORY AT X = 0.25 
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Figure 2.13: Motion Trace Over a Short Time Interval 
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MATLAB Example 


Program strngrun 


37: 


e 


8 
39 


40: 


. function strngrun(rundemo) 


^ strngrun(rundemo) 


^ This function illustrates propagation of 
^ waves in a tightly stretched string having 
^ given initial deflection. Calling strngrun 
^ with no input argument causes data to be 
^ read interactively. Otherwise, strngrun(1) 


. ^ executes a sample data case. 
. ^ User m functions called: strngwav animate 
: pltsav-0; ^ flag to save or not save graphs 


: disp? 4) 


: disp WAVE PROPAGATION IN A STRING’), disp? ?) 
; if nargin--0 % Input data interactively 
[a,len]=inputv([’Input wave speed (a) and ’,... 


2: 'string length (len) > ? ’]); 


disp(’ ?) 
disp([’Enter the number of interior ’, 

'data points (the fixed’]) 
disp([’end point coordinates are ’, 

'added automatically) ’]) 
n-input(?? ?); if isempty(n), return, end 
xd=zeros(n+2,1); xd(n+2)=len; 
yd=zeros(n+2,1); disp? ?) 
disp([’The string stretches between ’,... 

^fixed endpoints at’]) 
disp([’x=0 and x=’ ,num2str(len),’.’]),disp(’ ’) 
disp([’Enter ?,num2str(n),... 

^ sets of x,y to specify interior’]) 
disp([’initial deflections ’,... 

’ (one pair per line)’]) 

for j=2:nt1, [xd(j),yd(j)]=inputv; end; 
disp(’ ?) 
. disp(’?Input tmax and the number of time steps’) 
: [tmax,nt]=inputv(’ (Try len/a and 40) > ? ?); 
disp(’ ?) 
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: dispC Specify position x-x0 where the time’) 
; xO=input(... 


*history is to be evaluated (try len/4) > ? ?); 


: disp? ?) 

s disp(’Specify time t=t0 when the deflection’) 
. tO=input (° curve is to be plotted > ? 7); 

: disp? ?) 

. titl-input(?Input a graph title > ? ’,’s’); 


s: else ^4 Example for triangular initial deflection 
5i; a=1; len-1; tmax-len/a; nt-40; 
s xd2[0,.33,.5,.67,1]*1en; yd=[0,0,-1,0,0]; 


s ^ Different example for a truncated sine curve 
s 4 xd-linspace(0,1en,351); yd=sin(3*pi/len*xd) ; 
s: 4. k=find(yd<=0); xd=xd(k); yd=yd(k); 


ss: XO=0.25*len; t0-0.33*1len/a; 
; titl=’TRANSLATING WAVE OVER HALF A PERIOD’; 
;: end 


; nx-80; x-0:len/nx:len; t-0:tmax/nt:tmax; 


. h=max(abs(yd)); xplot-linspace(0,1en,201); 
5 tplot-linspace(0,max(t),251)'; 


. [Y, X, T] strnguvav (xd, yd, x,t,1en,a); 

: plot3(X’,T’,Y’,’k’); xlabel(?x axis?) 

. ylabel(’time’), zlabel(’y(x,t)’), title(titl) 

; if pltsav, print(gcf,’-deps’,’strngplot3’); end 
. drawnow, shg, disp(’ ?) 


. disp(?Press return to see the deflection?) 
. disp([when t = ’,num2str(t0)]), pause 


. [ytO,xx,tt]-strngwav(xd,yd,xplot,t0,1en,a); 

: close; plot(xx(:),ytOCry, "k") 

. Xlabel(’x axis’), ylabel(’y(x,t0)’) 

; title(['DEFLECTION WHEN T = ’ ,num2str(t0)]) 

; axis ([min(xx) ,max(xx) , -h,h]) 

; if pltsav, print(gcf,’-deps’,’strngyxt0’); end 
: drawnow, shg 


: disp? ?) 
. disp(’Press return to see the deflection history’) 
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. disp([’at x = ’,num2str(x0)]), pause 


. yxO7strngwav(xd,yd,xO,tplot,len,a); 

: plot(tplot,yxO,?k?) 

; xXlabel(’time’), ylabel(’y(x0,t)’) 

title... 

. ['DEFLECTION HISTORY AT X = ’ ,num2str(x0)]) 

. axis([0,max(t) ,-h,h]) 

; if pltsav, print(gcf,’-deps’,’strngyx0t’); end 
s drawnow, shg 


: disp? ?) 

. disp(?Press return to see the animation’) 

. disp(’?over two periods of motion’), pause 

. x=linspace(0,len,101); t-linspace(0,4*1en/a,121); 
: [Y, X, Tl »strngwav (xd, yd, x,t,1en,a) ; 

; titl=’MOTION OVER TWO PERIODS’ ; 

. animate(X(1,:),Y’,titl,.1), pause(2) 


s if pltsav, print(gcf,’-deps’,’strnganim’); end 


: disp(’ 7), disp’ A11 Done?) 


: function [Y,X,T]-strngwav(xd,yd,x,t,len,a) 


^ [Y,X,T]2strngwav (xd,yd,x,t,1len,a) 


^ This function computes the dynamic response of 
^ a tightly stretched string released from rest 

^ with a piecewise linear initial deflection. The 
^ string ends are fixed. 


: 4 xd,yd - data vectors defining the initial 


(4 deflection as a piecewise linear 

tds function. xd values should be increasing 
:% and lie between O and len 

dp eet - position and time vectors for which the 
:% solution is evaluated 


:% len,a - string length and wave speed 


; if nargin«6, a-1; end; if nargin <5, len=1; end 
. xd=xd(:); yd=yd(:); p=2*len; 
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. 4 If end values are not zero, add these points 
. if xd(end)^-len, xd-[xd;len]; yd=[yd;0]; end 
3. if xd(1)~=0, xd=[0;xd]; yd=[0;yd]; end 

34 nd-length(xd); 


36: 4 Eliminate any repeated abscissa values 
. kefind(diff(xd)--0); tiny-1en/1e6; 
. if length(k)>0, xd(k)=xd(k)+tiny; end 


; 4 Extend the data definition for len < x < 2*len 
zxd-[xd;p-xd(ud-1:-1:1)]; ydeLyd;-yd(nd-1:-1:1)]; 
. [X,T]=meshgrid(x,t); xp-X*a*T; xm-X-a*T; 

s Shape=size(xp); xp=xp(:); xm=xm(:); 


s 4 Compute the general solution for a piecewise 
; ^ linear initial deflection 
. Y=(sign(xp) .*interpi(xd,yd,rem(abs(xp),p),... 


? linear’ ,’extrap’)+sign(xm).*interp1(xd,yd,... 
rem(abs(xm),p),’linear’,’extrap’))/2; 


s: Y=reshape(Y, shape) ; 


s4 function animate(x,y,titl,tim,trace) 
s: ^ animate(x,y,titl,tim,trace) 


ss: ^ This function performs animation of a 2D curve 
5» ^ X,Y - arrays with columns containing curve positions 


m for successive times. x can also be a single 
ite vector if x values do not change. The animation 
ele is done by plotting (x(:,j),y(:,j)) for 

c j=1:size(y,2). 


:% titl- title for the graph 
5 ^ tim - the time in seconds between successive plots 


;; if nargin<5, trace-0; else, trace-1; end; 

s: if nargin<4, tim-.05; end 

. if nargin<3, trac=’’; end; [np,nt]-size(y); 

; if min(size(x))==1, j=ones(1,nt); x=x(:); 

; else, j-1:nt; end; ax=newplot; 

: if trace, XOR=’none’; else, XOR=’xor’; end 

; rz [min(x (:)) ,max (x (:)) ,min(y(:)) ,max(y(:))]; 

. haxis(’equal’) % Needed for an undistorted plot 
; axis(r), % axis(’off’) 
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7: curve = line(’color’,’k’,’linestyle’,’-’,... 

7; erase’ ,XO0R, ’xdata’,[],’ydata’,[]); 

7; Xlabel(’x axis’), ylabel(’y axis’), title(titl) 
7: for k = 1:nt 


80: set (curve, ’xdata’ ,x(:,j(k)),’ydata’,y(:,k)) 
81: if tim»0, pause(tim), end, drawnow, shg 

sas end 

83: 

84: A ——————-—---z2lllczlllllllllllll-lllll-l-----ll----- 


s: ^ function varargout-inputv (prompt) 
sn ^ See Appendix B 


E: SeSe 


2.8 Properties of Curves and Surfaces 


In this section some properties of space curves and surfaces are studied. Exam- 
ples illustrating the graphics capabilities of MATLAB to describe three-dimensional 
geometries are given. Readers should also study the demo examples and intrinsic 
documentation on functions such as plot3, surf, and mesh to appreciate the wealth 
of plotting options available. 


2.8.1 Curve Properties 


A space curve is a one-dimensional region representable in parametric form as 
R(t) 2 ix(t) + 3y(t) +k2(t), a<t<b 


where 2, 5, k are Cartesian base vectors, and t is a scalar parameter such as arc length 
s or time. At each point on the curve, differential properties naturally lead to a triad 
of orthonormal base vectors Ù, Ñ, and B called the tangent, the principal normal, 
and the binormal. The normal vector points toward the center of curvature and the 
binormal is defined by T x N to complete the triad. Coordinate planes associated 
with the triad are the normal plane containing N and Ê, the tangent plane containing 
T and B, and the osculating plane containing T and N. Two other scalar properties 
of interest are the curvature « (the reciprocal of the curvature radius) and the torsion 
T, which quantifies the rate at which the triad twists about the direction of Tasa 
generic point moves along the curve. When a curve is parameterized in terms of arc 
length s, the five quantities just mentioned are related by the Frenet formulas [91] 
which are ? . 
T ak T P Ñ, A -r?rÊ. 

Since most curves are not easily parameterized in terms of arc length, more conve- 
nient formulas are needed for computing T. N, B, kK, and T. All the desired quanti- 
ties can be found in terms of R'(t), R” (t), and R” (t). Among the five properties, 
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only torsion, 7, depends on R” (t). The pertinent formulas are 


5 RO &g  R()xHB'() 
T= TRO P7 RORO 
s ase (ROX R'E) 
N-BxT, = "ROP 
and . 
B. n"(t) 


O RORO 
When the independent variable t means time we get 


d " 
V = velocity = -ER Lp 
S 


where v is the magnitude of velocity called speed. Differentiating again leads to 


dV dv » ^ 
— = acceleration = Z T + kN 


so the acceleration involves a tangential component with magnitude equal to the time 
rate of change of speed, and a normal component of magnitude «v ? directed toward 
the center of curvature. The torsion is only encountered when the time derivative of 
acceleration is considered. This is seldom of interest in Newtonian mechanics. 

A function crvprp3d was written to evaluate T, Ñ, B, kK, and 7 in terms of R'(t), 
R” (t), and R” (t). Another function aspiral applies crvprp3d to the curve de- 
scribed by 

R(t) = [(ro + kt) cos(t); (ro + kt) sin(t); ht] 


where t is the polar coordinate angle for cylindrical coordinates. Figure 2.14 depicts 
results generated from the default data set where 


ro; —2m , k=1,h=2, 2m <t<8r, 


with 101 data points being used. A cross section normal to the surface would produce 
a right angle describing the directions of the normal and binormal at a typical point. 
The spiral itself passes along the apex of the right angle. This surface illustrates how 
the intrinsic triad of base vectors changes position and direction as a point moves 
along the curve. 

An additional function crvprpsp was written to test how well cubic spline in- 
terpolation approximates curve properties for the spiral. MATLAB provides func- 
tion spline to connect data points by a piecewise cubic interpolation curve having 
continuous first and second derivatives [27]. This function utilizes other intrinsic 
functions! such as unmkpp, mkpp, and ppval. Although basic MATLAB does not 


l These functions are included with MATLAB and are a subset of the more comprehensive Spline Toolbox 
also available from The MathWorks. 
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Spiral Showing Osculating and Rectifying Planes 


y axis 


x axis 


Figure 2.14: Spiral Showing Osculating and Rectifying Planes 


include functions for spline differentiation, this can be remedied by the short func- 
tion splined which computes first and second derivatives of the interpolation curve 
defined by function spline. In our example using spline interpolation, approxima- 
tion of 7 was not obtained because a cubic spline only has its first two derivatives 
continuous. Approximations for R” (t) could have been generated by interpolat- 
ing the computed values of R’(t) and differentiating the results twice. That idea 
was not explored. To assess the accuracy of the spline interpolation, values for 
norm(B — B, us) and |(k — k,,,.)/k| were obtained at 101 sample points along 
the curve. Results depicted in Figure 2.15 show errors in the third decimal place 
except near the ends of the interpolation interval where a “not a knot" boundary 
condition is employed [27]. 
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Figure 2.15: Error Plot 
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Program Output and Code 


Program splinerr 


: function splinerr 


^ Example: splinerr 
^ This program calculates the binormal and 
^ curvature error for a spiral space curve. 


^ User m functions called: 
^ aspiral, crvprpsp crvprp3d cubrange splined 


: clear; hold off; clf; 

. [R, T,N,B,KAP]-aspiral; m-size(R,2); 

. [r,t,n,b,k]=crvprpsp(R,m) ; 

s disp? ?’); dXspC... 

. "Press [Enter] to show error curves’); pause 
. errv-sqrt(sum((B-b).^2)); 

; errk-abs((KAP-k)./KAP); hold off; clf; 

. semilogy(1:m,errv,’k-’,1:m,errk,’k--’); 

. Xlabel(?point index’); ylabel(’error measure’); 
; tàitle( Error Plot’); 

2: legend Binormal error’ ,’Curvature error?,3); 
23: figure(gcf); disp(’ ?) 

. disp( Press [Enter] to finish’); pause 

s disp 7), disp?’ All done’), disp(’ ?) 


2: function [R,T,N,B,kap,tau,arclen]- .. 


aspiral(rO,k,h,t) 


: ^. [R, T, NB, kap, tau, arclen]-aspiral(r0,k,h,t) 


s 4 This function computes geometrical properties 
3%: ^ Of a spiral curve having the parametric 
37: ^ equation 


3: 4 R= [(rOt*k*t)*cos(t) ; (rO*k*t)*sin(t);h*t] 


© 2003 by CRC Press LLC 


. ^ A figure showing the curve along with the 
. ^ osculating plane and the rectifying plane 
. ^ at each point is also drawn. 


s ^ rO,k,h - parameters which define the spiral 


46: ^ t - a vector of parameter values at 

az h which the curve is evaluated from 
as: h the parametric form. 

ao: h 

5; AR - matrix with columns containing 

si: h position vectors for points on the 
52: h curve 

5 ^ T,N,B - matrices with columns containing the 
54: h tangent,normal,and binormal vectors 
55: A kap - vector of curvature values 

5 ^ tau - vector of torsion values 

s. ^ arclen - value of arc length approximated as 
58: % the sum of chord values between 

59: h successive points 


; 4 User m functions called: 
:% crvprp3d, cubrange 


s if nargin== 


k-1; h=2; r0-2*pi; t-linspace(2*pi,8*pi,101); 


;: end 


;^4 Evaluate R, R’(t), R’’(t) and R??? (t) for 

. 4 the spiral 

. t=t(:)’; s=sin(t); c=cos(t); kc-k*c; ks=k*s; 

. rk=r0+k*t; rks-rk.*s; rkc=rk.*c; n=length(t) ; 

; R=[rkc;rks;h*t]; Ri-[kc-rks;ks-*rkc;h*ones(1,n)]; 
; R22 [-2*ks-rkc;2*kc-rks;zeros(1,n)]; 

s. R82 [-3*kc*rks;-3*ks-rkc;zeros(1,n)]; 


; ^ Obtain geometrical properties 
. [T, N, B, kap, tau] »crvprp3d (R1,R2,R3) ; 
. arclen=sum(sqrt(sum((R(:,2:n)-R(:,1:n-1)).72))); 


. ^ Generate points on the osculating plane and 
. 4 the rectifying plane along the curve. 

: w=arclen/100; Rn=R+w*N; Rb=R+w*B; 

: X=[Rn(1,:);R(1,:);Rb(1,:)]; 

: Y= [Rn (2, :);R(2,:);Rb(2,:)]; 
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;: Z- [Rn (3, 


. 4 R1 = 
. 4 R2 = 


% R3 - 


LN - 


-%B 


- 4 kap - 
;4 tau - 


:25R C3, :2; Rb C3, :2] ; 


; ^4 Draw the surface 
. vecubrange([X(:),YC:),Z(:)]) ; hold off; clf; close; 
; surf (X,Y,Z); axis(v); xlabel(’x axis’); 
: ylabel(’ 
; title([? 

’Rectifying Planes’]); grid on; drawnow; 
. figure(gcf); 


y axis’); zlabel(’z axis’); 
Spiral Showing Osculating and ’, 


. function [T,N,B,kap,tau]-crvprp3d(R1,R2,R3) 


: 4. UIT, N,B, kap, tau] "crvprp3d (R1,R2,R3) 


:. 4 This function computes the primary 

. 4 differential properties of a three-dimensional 
s ^ curve 
» ^ can be arc length or any other convenient 
. 4 parameter such as time. 


parameterized in the form R(t) where t 


the matrix with columns containing R'(t) 
the matrix with columns containing R''(t) 
the matrix with columns containing 

R??? (t). This matrix is only needed 
when torsion is to be computed. 


matrix with columns containing the 
unit tangent 

matrix with columns containing the 
principal normal vector 

matrix with columns containing the 
binormal 

vector of curvature values 

vector of torsion values. This equals 
[] when R3 is not given 


; 4 User m functions called: none 


; nri-sqrt(dot(R1,R1)); T-R1./nri(ones(3,1),:); 
. R12=cross(R1,R2); nri2-sqrt(dot(R12,R12)); 
: B=R12./nri2(ones(3,1),:); N=cross(B,T); 
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; 4 Rd 


si: ^n 


58: VA T,N,B 


: 4 kappa 


; kap=nr12./nr1.^3; 


3: 4 Compute the torsion only when R’’’(t) is given 
34: if nargin--3, tau=dot(B,R3)./nr12; 
s else, tau=[]; end 


3: function [R,T,N,B,kappa]=crvprpsp(Rd,n) 


. % (R,T,N,B, kappa] =crvprpsp(Rd,n) 


.% This function computes spline interpolated 

s 4^ values for coordinates, base vectors and 

; ^ curvature obtained by passing a spline curve 
: 4 through 


data values given in Rd. 


a matrix containing x,y and z values 
in rows 1, 2 and 3. 

the number of points at which 
properties are to be evaluated along 
the curve 


a 3 by n matrix with columns 
containing coordinates of interpolated 
points on the curve 

matrices of dimension 3 by n with 
columns containing components of the 
unit tangent, unit normal, and unit 
binormal vectors 

a vector of curvature values 


; 4 User m functions called: 


Splined, crvprp3d 


s: h Create a spline curve through the data points, 
; 4 and evaluate the derivatives of R. 

. nd=size(Rd,2); td-0:nd-1; t-linspace(0,nd-1,n); 

. ud-Rd(1,:)*i*Rd(2,:); u-spline(td,ud,t); 

. ul=splined(td,ud,t); u2-splined(td,ud,t,2); 

. ud3=Rd(3,:); z=spline(td,ud3,t) ; 

. zl=splined(td,ud3,t); z2-splined(td,ud3,t,2); 

: R=[real(u) ;imag(u);z]; Ri-[real(u1);imag(u1);z1]; 
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; R22 [real(u2);imag(u2) ;z2]; 


; 4 Get curve properties from crvprp3d 
: [T, N, B, kappa] =crvprp3d (R1,R2) ; 


. function val-splined(xd,yd,x,if2) 


s ^ val=splined(xd,yd,x,if2) 


; ^ This function evaluates the first or second 
. 4 derivative of the piecewise cubic 

. 4 interpolation curve defined by the intrinsic 
. 4 function spline provided in MATLAB.If fewer 
. 4 than four data points are input, then simple 
: 4 polynomial interpolation is employed 


s ^ xd,yd - data vectors determining the spline 


WDA curve produced by function spline 
HX - vector of values where the first or 
A the second derivative are desired 
. 4 if2  - a parameter which is input only if 
-h y’? (x) is required. Otherwise, y’ (x) 
oh is returned. 

0 

h 
» ^ val - the first or second derivative values 
(4 for the spline 


; 4 User m functions called: none 


: n=length(xd); [b,c]=unmkpp(spline(xd,yd)); 
; if n>3 % Use a cubic spline 


if nargin--3, c=[3*c(:,1),2*c(:,2),c(:,3)]; 
else, c-[6*c(:,1),2*c(:,2)]; end 
val-ppval(mkpp(b,c),x); 

; else 4 Use a simple polynomial 
c=polyder(polyfit(xd(:),yd(:),n-1)); 
if nargin==4, c=polyder(c); end 
val-polyval(c,x); 

: end 
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21: 4 function range=cubrange (xyz, ovrsiz) 
222: h See Appendix B 


2.8.2 Surface Properties 


Surfaces are two-dimensional regions described parametrically as 
R(u, v) = àx(u, v) + 3u(u, v) + kz(u, v) 


where u and v are scalar parameters. This parametric form is helpful for generating a 
grid of points on the surface as well as for computing surface tangents and the surface 
normal. Holding v fixed while u varies generates a curve in the surface called a u 
coordinate line. A tangent vector to the u-line is given by 


on =I— + 9— + k— 
du Qu i Jn Qu. 


Similarly, holding u fixed and varying v produces a v-line with tangent vector 


OR — got 4. Oy m 
eG ae Ou OU. 


Consider the following cross product. 
gu X gv du dv = nds. 


In this equation ñ is the unit surface normal and dS is the area of a parallelogram 
shaped surface element having sides defined by gu du and g, dv. 

The intrinsic functions surf(X, Y,Z) and mesh(X, Y,Z) depict surfaces by showing 
a grid network and related surface patches characterized when parameters u and v 
are varied over constant limits. Thus, values 


(u,v), 1< <n, Ts po 


lead to matrices 
X = [z(w,vj)] , Y = [y(w,vj)) , Z = [z(u, vj)] 


from which surface plots are obtained. Function surf colors the surface patches 
whereas mesh colors the grid lines. 
As a simple example, consider the ellipsoidal surface described parametrically as 


x = acosÜcosó , y = bcos Osin ġ , z = csin 0 


where => «0x $ , ^n € @ < m. The surface equation evidently satisfies the 
familiar equation 
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for an ellipsoid. The function elipsoid(a,b,c) called with a = 2, b = 1.5, c = 1 
produces the surface plot in Figure 2.18. 

Many types of surfaces can be parameterized in a manner similar to the ellipsoid. 
We will examine two more problems involving a torus and a conical frustum. Con- 
sider a circle of radius b lying in the xz-plane with its center at [a, 0, 0]. Rotating 
the circle about the z-axis produces a torus having the surface equation 


x = [a 4- bcos0] cos $ , y = [a + bcos0] , sing, z = bsing 


where -r <O <7, -7<O< 7. 

This type of equation is used below in an example involving several bodies. Let 
us also produce a surface covering the ends and side of a conical frustum (a cone 
with the top cut off). The frustum has base radius ry, top radius r+, and height h, 
with the symmetry axis along the z-axis. The surface can be parameterized using an 
azimuthal angle 0 and an arc length parameter relating to the axial direction. The 


lateral side length is 
Ts = y hê? + (ry — r4). 


Let us take 0 € s < (ry + rs + r+) and describe the surface R(s, 0) by coordinate 
functions 
xz —r(s)cos0 , y —r(s)sin0 , z = z(s) 


where 0 < 0 < 27 and 
r(s)—-s, 0€ sry 
(rt — ry)(s — rẹ) h(s — ry) 


r(s) = rg + 2————————, z = —————,n&s€(ryri;) 
Ts Ts 


r(s) 2 rp +rs +re=r, z=h, (rp rs) € s € (rp - rs 4 mio). 


The function frus produces a grid of points on the surface in terms of ry, r+, h, the 
number of increments on the base, the number of increments on the side, and the 
number of increments on the top. Figure 2.16 shows the plot generated by frus. 

An example called srfex employs the ideas just discussed and illustrates how 
MATLAB represents several interesting surfaces. Points on the surface of an an- 
nulus symmetric about the z-axis are created, and two more annuli are created by 
interchanging axes. A pyramid with a square base is also created and the combina- 
tion of four surfaces is plotted by finding a data range to include all points and then 
plotting each surface in succession using the hold instruction (See Figure 2.16). Al- 
though the rendering of surface intersections is not perfect, a useful description of a 
fairly involved geometry results. Combined plotting of several intersecting surfaces 
is implemented in a general purpose function surfmany. The default data case for 
surfmany produces the six=legged geometry shown in Figure 2.17. 

This section is concluded with a discussion of how a set of coordinate points can 
be moved to a new position by translation and rotation of axes. Suppose a vector 


r= zy + kz 
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Spike and Intersecting Toruses 


Figure 2.16: Spike and Intersecting Toruses 


undergoes a coordinate change which moves the initial coordinate origin to (X o, Yo, Zo) 
and moves the base vectors 2, 7, k into 64, 65, 63. Then the endpoint of r passes to 


R-—iX-jY--kZ- R, + iu + Coy + égz 


where . 
R,-—À&X,4 Ys + kZ,. 


Let us specify the directions of the new base vectors by employing the columns of a 
matrix V where we take 

ae! D) 

— norm[V (:,1)] ` 


If V (:, 2) exists we take V(:, 1) x V(:, 2) and unitize this vector to produce 65. The 
triad is completed by taking 64 = 62 x 63. In the event that V (:, 2) is not provided, 
we use [1;0;0] and proceed as before. The functions rgdbodmo and rotatran 
can be used to transform points in the manner described above. 


€3 
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SEVERAL SURFACES COMBINED 


z axis 
o 
£ 


y axis 


x axis 


Figure 2.17: Surface With Six Legs 
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ROTATED AND TRANSLATED ELLIPSOID 


5.5 


z axis 
a 


4.5 


y axis 


x axis 


Figure 2.18: Rotated and Translated Ellipsoid Surfaces 
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2.8.3 Program Output and Code 


Function srfex 


Oe 
[A 


: function [x1,y1,x2,y2,x3,y3,xf,yf,zf]= 


srfex(da,na,df,nf) 
^h [x1,y1,x2,y2,x3,y3,xf,yf,zf]= : 
^ srfex(da,na,df,nf) 


^ This graphics example draws three toruses 
^ intersecting a spike. 


; ^ User m functions called: frus, surfmany 


: if nargin-- 


da-[4.0,.45]; na=[42,15]; 
df-[2:2,0,15]; nf=[43,4]; 


5; end 


. ^ Create a torus with polygonal cross section. 
. ^ Data for the torus is stored in da and na 


; rO2da(1); ri=da(2); nfaces-na(1); nlat-na(2); 
. t=linspace(0,2*pi,nlat)’; 

2: Xz-7 [rO*ri*cos(t),ri*sin(t)]; 

2: Z1=xz(:,2); zi-zi(:,ones(1,nfaces*1)); 

. th-linspace(0,2*pi,nfaces*1); 

s xi-xz(:,1)*cos(th); yl=xz(:,1)*sin(th) ; 

;: y2-x1; z2-yl; x2=z1; y3-x2; z3-y2; x3-z2; 


2: À Create a frustum of a pyramid. Data for the 
2: 4 frustum is stored in df and nf 

. rb=df (1); rt-df(2); h-df(3); 

. [xf£,yf,zf]-frus(rb,rt,h,nf); zf=zf-.35*h; 


. ^ Plot four figures combined together 

: hold off; clf; close; 

s surfmany(x1,y1,21,x2,y2,z22,x3,y3,z23,xf,yf,zf) 
3: XLabel(’x axis’); ylabel(’y axis’); 

a; Zlabel(?z axis’); 

ss title(’Spike and Intersecting Toruses?); 

3: axis equal; axis(’off’); 

. colormap([1 1 1]); figure(gcf); hold off; 
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84: 
85: 


o 


print -deps srfex 


s function [X,Y,Z]-frus(rb,rt,h,n,noplot) 


[X,Y,Z]-frus(rb,rt,h,n,noplot) 


This function computes points on the surface 
of a conical frustum which has its axis along 
the z axis. 


rb,rt,h - the base radius,top radius and 
height 

n - vector of two integers defining the 
axial and circumferential grid 
increments on the surface 


noplot - parameter input when no plot is 
desired 
X,Y,Z - points on the surface 


User m functions called: none 


; if nargin-- 


rb-2; rt-1; h-3; n-[23, 35]; 


; end 


; th=linspace(0,2*pi,n(2)+1)’-pi/n(2) ; 
. Sl=sqrt (h*2+(rb-rt)*2); s=sl+rb+rt; 
; m=ceil(n(1)/s*[rb,sl,rt]); 

. rbot=linspace(0,rb,m(1)); 

. rside-linspace(rb,rt,m(2)); 

s rtop-linspace(rt,0,m(3)); 

. r=[rbot,rside(2:end) ,rtop(2:end)]; 

: hbot=zeros(1,m(1)); 

: hside-linspace(0,h,m(2)); 

. htop-h*ones (1,m(3)); 

; H= 
: Z= 
. xycexp(i*th)*r; X-real(xy); Y-imag(xy); 
; if nargin«5 


[hbot ,hside(2:end) ,htop(2:end)] ; 
repmat (H,n(2)+1,1); 


surf(X,Y,Z); title(’Frustum’); xlabel(’x axis’) 
ylabel(’y axis’), zlabel(’z axis’) 
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grid on, colormap([1 1 1]); 
figure(gcf); 


;: end 


. function surfmany(varargin) 

. ^function surfmany(x1,y1,z1,x2,y2,z2,... 
T x3,y3,z3,..,xn,yn,zn) 

s 4 This function plots any number of surfaces 
. ^ on the same set of axes without shape 
. ^ distortion. When no input is given then a 
. ^ Six-legged solid composed of spheres and 
. ^ cylinders is shown. 


. 4 User m functions called: none 


; if nargin-- 


^ Default data for a six-legged solid 
n=10; rs=.25; d-7; rs=2; rc=.75; 
[xs,ys,zs]-sphere; [xc,yc,zc]=cylinder; 
XS-rS*XS; yS-rS*ys; ZS-rsS*zs; 
XC-rC*XC; yc-rc*yc; zc-2*d*zc-d; 
xi-xs; yl=ys; zi-zs; 

x2=zstd; y2-ys; z2-xs; 

x3-zs-d; y3=ys; z3-xs; 

x4=xs; y4-zs-d; z4-ys; 

xb-xs; yb-zstd; zb5b-ys; 

x6-xs; y6=ys; z6=zstd; 

x7=xs; y/=ys; z/7=zs-d; 

x8=xc; y8=yc; z8=zc; 

x9-zc; y9-xc; z9-yc; 

x10=yc; yl0=zc; z10=xc; 


: varargin={x1,y1,z1,x2,y2,Z2,x3,y3,Zz3,... 
: X4,y4,z4,x5,y5,z5,x6,y6,z6,x7,y/,27,... 
: x8,y8,28,x9,y9,29,x10,y10,z210) ; 

. end 


; 4 Find the data range 
; n=length(varargin) ; 


; r=realmax*[1,-1,1,-1,1,-1]; 
; S=inline(’min([a;b])’,’a’,’b’); 
. b=inline(’max([a;b])’,’a’,’b’); 


: for k=1:3:n 
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53: 


. x=varargin{k}; y=varargin{k+1}; 
; z=varargin{k+2}; 

3 X=X(:); y=y(:); z=z(:); 

sa: r(1)=s(r(1),x); r(2)=b(r(2),x); 
s r(3)=s(r(3),y); r(4)=b(r(4),y); 
3: r(5)=s(r(5),z); r(6)=b(r(6),z); 
; end 


39: 4 Plot each surface 

: hold off, newplot 

: for k=1:3:n 

. x=varargin{k}; y=varargin{k+1}; 
s Z=varargin{k+2}; 

. surf(x,y,z); axis(r), hold on 
s end 


; ^ Set axes and display the combined plot 

; axis equal, axis(r), grid on 

: Xlabel(’x axis’), ylabel(’y axis?) 

s: Zlabel(’z axis’) 

si; title(’SEVERAL SURFACES COMBINED’) 

sz: ^ Colormap( [127/255 1 212/255]); % aquamarine 


colormap([1 1 1]);, figure(gcf), hold off 


Function rgdbodmo 


. function [X,Y,Z]-rgdbodmo(x,y,z,v,RO) 


^ [X,Y,Z]-rgdbodmo (x,y,z,v,RO) 


^ This function transforms coordinates x,y,z to 
^ new coordinates X,Y,Z by rotating and 

^ translating the reference frames. When no 
^ input is given, an example involving an 


. ^ ellipsoid is run. 


. 4 X,y,Z - initial coordinate matrices referred 


m) to base vectors [1;0;0], [0;1;0] and 
pA [0;0;1]. Columns of v are used to 

A create new basis vectors i,j,k such 
ih that a typical point [a;b;c] is 

NA transformed into [A;B;C] according 
h to the equation 
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» | [A;B;C] -ROC:2 * [1, j, k] *[a;b; c] 


2: À V - a matrix having three rows and either 
a: % one or two columns used to construct 
22: h the new basis [i,j,k] according to 

23: h methods employed function rotatran 
2: ^ RO - a vector which translates the rotated 
25: % coordinates when RO is input. 

26: h Otherwise no translation is imposed. 


2: 4 X,Y,Z - matrices containing the transformed 
29: h coordinates 


; ^ User m functions called: elipsoid, rotatran 


3: if nargin-- 


[x,y,z]-elipsoid(1,;1,2, [17,33],0) ; RO- [3;4;5]; 
v2[[1;1;11, [1;1;0]]; 


ae; end 

3: In,m]=size(x); XYZ=[x(:),y(:),z(:)]*rotatran(v)’; 
a& X=XYZ(:,1); Y=XYZ(:,2); Z=XYZ(:,3); 

3: if ~isempty (RO) 


X=X+RO(1); Y=Y+RO(2); Z=Z+R0(3) ; 


: end 

. X=reshape(X,n,m); Y-reshape(Y,n,m); 
. Z=reshape(Z,n,m) ; 

: if nargin-- 


close; surf(X,Y,Z), axis equal, grid on 
title(C ROTATED AND TRANSLATED ELLIPSOID’) 
xlabel(’x axis’), ylabel(’y axis’) 
zlabel(’z axis’) ,colormap([1 1 1]); shg 


; end 


s: function [x,y,z]-elipsoid(a,b,c,n,noplot) 
s 4 [x,y,zl-elipsoid(a,b,c,n,noplot) 


s; ^ This function plots an ellipsoid having semi- 
ss 4 diameters a,b,c 


. 4 a,b,c - semidiameters of the ellipsoid defined 
2 by (x/a)^2*(y/b)^2*(z/c)^2-1 

An - vector [nth,nph] giving the number of 
de theta values and phi values used to plot 
a the surface 
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. ^ noplot - omit this parameter if no plot is desired 
s 4 X,y,Z - matrices of points on the surface 


; 4 User m functions called: none 


. if nargin--0, a-2; b-1.5; c-1; n-[17,33]; end 

. nth=n(1); nph-n(2); 

. th=linspace(-pi/2,pi/2,nth)’; ph-linspace(-pi,pi,nph); 
. xca*cos(th)*cos(ph); y=b*cos(th)*sin(ph) ; 

. z=c*sin(th) *ones(size(ph)) ; 

s if nargin<5 


surf(x,y,z); axis equal 
title(’ELLIPSOID’), xlabel(’x axis’) 
ylabel(’y axis’), zlabel(’z axis’) 
colormap([1 1 1]); grid on, figure(gcf) 


; end 


; function mat=rotatran(v) 


84 

85 4, 

s: 4 mat-rotatran(v) 

87 (] 

ss: 4 This function creates a rotation matrix based 
s: 4 on the columns of v. 

90 " 

o» ^ V  - a matrix having three rows and either 
92: h one or two columns which are used to 

93: h create an orthonormal triad [i,j,k] 

oa: h returned in the columns of mat. The 

95: h third base vector k is defined as 

96: ^ v(:,1)/norm(v(:,1)). If v has two 

97: h columns then, v(:,1) and v(:,2) define 
os: % the xz plane with the direction of j 

99: % defined by cross(v(:,1),v(:2)). If only 
oo: ^ v(:,1) is input, then v(:,2) is set 

or: ^ to [1;0;0]. 


. 4 mat - the matrix having columns containing 
Sh the basis vectors [i,j,k] 
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: k=v(: ,1)/norm(v(: ,1)); 

. if size(v,2)--2, p-v(:,2); else, p=[1;0;0]; end 
. j=cross(k,p); nj=norm(j); 

: if nj~=0 


j=j/nj; mat=[cross(j,k),j,k]; 


; else 


mat=[[0;1;0],cross(k, [0;1;0]),k]; 


; end 
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Chapter 3 


Summary of Concepts from Linear Algebra 


3.1 Introduction 


This chapter briefly reviews important concepts of linear algebra. We assume the 
reader already has some experience working with matrices, and linear algebra ap- 
plied to solving simultaneous equations and eigenvalue problems. MATLAB has ex- 
cellent capabilities to perform matrix operations using the fastest and most accurate 
algorithms currently available. The books by Strang [96] and Golub and Van Loan 
[47] give comprehensive treatments of matrix theory and of algorithm developments 
accounting for effects of finite precision arithmetic. One beautiful aspect of matrix 
theory is that fairly difficult proofs often lead to remarkably simple results valuable 
to users not necessarily familiar with all of the theoretical developments. For in- 
stance, the property that every real symmetric matrix of order n has real eigenvalues 
and a set of n orthonormal eigenvectors can be understood and used by someone 
unfamiliar with the proof. The current chapter summarizes a number of fundamen- 
tal matrix properties and some of the related MATLAB functions. The intrinsic 
matrix functions use highly efficient algorithms originally from the LINPACK and 
EISPACK libraries which have now been superceded by LAPACK. [34, 42, 89]. Dr. 
Cleve Moler, the Chairman and Chief Scientist at The MathWorks, contributed to 
development of these systems. He also wrote the first version of MATLAB. Readers 
should simultaneously study the current chapter and the MATLAB demo program 
on linear algebra. 


a SeSe 


3.2 Vectors, Norms, Linear Independence, and Rank 


Consider an n by m matrix 


A= [an], 1 Svan ls fem, 


having real or complex elements. The shape of a matrix is computed by size(A) 
which returns a vector containing n and m. The matrix obtained by conjugating 
the matrix elements and interchanging columns and rows is called the transpose. 
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Transposition is accomplished with a ’ operator, so that 
A.transpose — A'. 


Transposition without conjugation of the elements can be performed as A.’ or as 
conj( A"). Of course, whenever A is real, A’ is simply the traditional transpose. 

The structure of a matrix A is characterized by the matrix rank and sets of basis 
vectors spanning four fundamental subspaces. The rank r is the maximum number 
of linearly independent rows or columns in the matrix. We discuss these spaces in 
the context of real matrices. The basic subspaces are: 


1. The column space containing all vectors representable as a linear combination 
of the columns of A. The column space is also referred to as the range or the 
span. 


2. The null space consisting of all vectors perpendicular to every row of A. 


3. The row space consisting of all vectors which are linear combinations of the 
rows of A. 


4. The left null space consisting of all vectors perpendicular to every column of 


A. 
MATLAB has intrinsic functions to compute rank and subspace bases 
e matrix. rank = rank( A) 


e column.space = orth( A) 


null_space = null( A) 


e row.space = orth( A^ 


left. null. space = null( A^) 


The basis vectors produced by null and orth are orthonormal. They are generated 
using the singular value decomposition algorithm [47]. The MATLAB function to 
perform this type of computation is named svd. 


NENNEN  .. 3. 3. ^^ 3 |. ^ — 
3.3 Systems of Linear Equations, Consistency, and Least Squares 
Approximation 


Let us discuss the problem of solving systems of simultaneous equations. Repre- 
senting a vector B as a linear combination of the columns of A requires determina- 
tion of a vector X to satisfy 


AX =B <> ySETODEO =B 


j=l 
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where the 7’th column of A is scaled by the 7'th component of X to form the lin- 
ear combination. The desired representation is possible if and only if B lies in the 
column space of A. This implies the consistency requirement that A and [A, B] 
must have the same rank. Even when a system is consistent, the solution will not be 
unique unless all columns of A are independent. When matrix A, with n rows and m 
columns, has rank r less than m, the general solution of AX = B is expressible as 
any particular solution plus an arbitrary linear combination of m — r vectors form- 
ing a basis for the null space. MATLAB gives the solution vector as X = A\B. 
When r is less thàn n, MATLAB produces a least squares solution having as many 
components as possible set equal to zero. 

In instances where the system is inconsistent, regardless of how X is chosen, the 
error vector defined by 

E-AX-B 


can never be zero. An approximate solution can be obtained by making E normal to 
the columns of A. We get 
A'AX = A'B 
which is known as the system of normal equations. They are also referred to as least 
squares error equations. It is not difficult to show that the same equations result by 
requiring E to have minimum length. The normal equations are always consistent 
and are uniquely solvable when rank( A) = m. A comprehensive discussion of least 
squares approximation and methods for solving overdetermined systems is presented 
by Lawson and Hanson [62]. It is instructive to examine the results obtained from 
the normal equations when A is square and nonsingular. The least squares solution 
would give 
X = (J M BRA TOS HAB = A`! B. 
Therefore, the least squares solution simply reduces to the exact solution of AX = B 
for a consistent system. MATLAB handles both consistent and inconsistent systems 
as X = A\B. However, it is only sensible to use the least squares solution of an 
inconsistent system when AX produces an acceptable approximation to B. This 
implies 
norm(AX — B) < tol x norm(B) 

where tol is suitably small. 

A simple but important application of overdetermined systems arises in curve fit- 
ting. An equation of the form 


y(z) = 5 f;(z)e; 


involving known functions f,(x), such as 12^! for polynomials, must approximately 
match data values (X,, Y;), 1 < 2 < n, with n > m. We simply write an overdeter- 
mined system 


3 5 0)e & Y, 15«n 
j=l 
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and obtain the least squares solution. The approximation is acceptable if the error 
components 


are small enough and the function y(x) is also acceptably smooth between the data 
points. 

Let us illustrate how well MATLAB handles simultaneous equations by construct- 
ing the steady-state solution of the matrix differential equation 


Mé+Ca+ Ka = F; cos(wt) + F»sin(wt) 


where M, C, and K are constant matrices and F and F> are constant vectors. The 
steady-state solution has the form 


x = X4 cos(wt) + X5 sin(wt) 
where X; and X2 are chosen so that the differential equation is satisfied. Evidently 
t = —wXijsin(wt) + wX2 cos(wt) 


and 


i= —w ez. 


Substituting the assumed form into the differential equation and comparing sine and 
cosine terms on both sides yields 


(K —w?M)X, +wOX, = Fi, 
—wC X: + (K —w?M)Xo = Fr. 
The equivalent partitioned matrix is 


EE etn] P] = UR 


-wC [(K=a7M) | [Xs Fy | ° 


A simple MATLAB function to produce X; and X5 when M, C, K, Fi, F5, and w 


are known is 


function [x1,x2,xmax]-forcresp(m,c,k,f1,f2,w) 
kwm=k- (w*w) *m; wc=w*c; 


x-[kwm,wc;-wc,kwm]N[f1;f2]; n=length(f1); 
x1-x(1:n); x2=x(n+1:2%*n) ; 
xmax=sqrt (x1.*x1+x2.*x2); 


The vector, xmax, defined in the last line of the function above, has components 
specifying the maximum amplitude of each component of the steady-state solution. 
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The main computation in this function occurs in the third line, where matrix concate- 
nation is employed to form a system of 2n equations with x being the concatenation 
of X, and X». The fourth line uses vector indexing to extract X 4 and X» from z. 
The notational simplicity of MATLAB is elegantly illustrated by these features: a) 
any required temporary storage is assigned and released dynamically, b) no looping 
operations are needed, c) matrix concatenation and inversion are accomplished with 
intrinsic functions using matrices and vectors as sub-elements of other matrices, and 
d) extraction of sub-vectors is accomplished by use of vector indices. The impor- 
tant differential equation just discussed will be studied further in Article 3.5.3 where 
eigenvalues and complex arithmetic are used to obtain a general solution satisfying 
arbitrary initial conditions. 


E EEETTEETTETEETITETITLTTTTTTIIÉTIÉITÉTTIILIIIIIIIÍ 


3.4 Applications of Least Squares Approximation 


The idea of solving an inconsistent system of equations in the least squares sense, 
so that some required condition is approximately satisfied, has numerous applica- 
tions. Typically, we are dealing with a large number of equations (several hundred 
is common) involving a smaller number of parameters used to closely fit some con- 
straint. Linear boundary value problems often require the solution of a differential 
equation applicable in the interior of a region while the function values are known on 
the boundary. This type of problem can sometimes be handled by using a series of 
functions which satisfy the differential equation exactly. Weighting the component 
solutions to approximately match the remaining boundary condition may lead to use- 
ful results. Below, we examine three instances where least squares approximation is 
helpful. 


3.4.1 A Membrane Deflection Problem 


Let us illustrate how least squares approximation can be used to compute the trans- 
verse deflection of a membrane subjected to uniform pressure. The transverse de- 
flection u for a membrane which has zero deflection on a boundary L satisfies the 
differential equation 


u u 


— += = sy) inside L 
E + Dy? "y , (x,y) inside 


where y is a physical constant. Properties of harmonic functions [18] imply that the 
differential equation is satisfied by a series of the form 


e 2 n 
u=y7 z +See, real(zJ~') 
j—1 
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Membrane Deflection 


deflection 


y axis -1 


Figure3.1: Surface Plot of Membrane 


where z = x + zy and constants c, are chosen to make the boundary deflection as 
small as possible, in the least squares sense. As a specific example, we analyze a 
membrane consisting of a rectangular part on the left joined with a semicircular part 
on the right. The surface plot in Figure 3.1 and the contour plot in Figure 3.2 were 
produced by the function membran listed below. This function generates boundary 
data, solves for the series coefficients, and constructs plots depicting the deflection 
pattern. The results obtained using a twenty-term series satisfy the boundary condi- 
tions quite well. 
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Membrane Surface Contour Lines 


y axis 
o 
T 


Figure3.2: Membrane Surface Contour Lines 
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0 


x axis 


0.5 


MATLAB Example 


Function membran 


. function [dfl,cof]=membran(h,np,ns,nx,ny) 
^ [dfl,cof]2-membran(h,np,ns,nx,ny) 


This function computes the transverse 

^ deflection of a uniformly tensioned membrane 
^ which is subjected to uniform pressure. The 

^ membrane shape is a rectangle of width h and 
^ height two joined with a semicircle of 

^ diameter two. 


GOR gv. ume Qoo UN. Us 
e 
ex 


e 


u: 4 Example use: membran(0.75,100,50,40,40) ; 


iz h h - the width of the rectangular part 
1 ^ np - the number of least square points 
is: % used to match the boundary 

16: h conditions in the least square 
wo sense is about 3.5*np 

18s: 4 nS - the number of terms used in the 
19; h% approximating series to evaluate 
20: % deflections. The series has the 
a1: % form 

22. A 

23: % dfl = abs(z)*2/4 + 

24: h sum({j=1:ns},cof(j)* 

25: % real(z*(j-1))) 

26: y/ 

2: ^ nx,ny | - the number of x points and y points 
as: h used to compute deflection values 
29: À on a rectangular grid 

3: 4 dfl - computed array of deflection values 
3: ^ cof - coefficients in the series 

32: % approximation 

33: VA 


34 4 User m functions called: none 

s if nargin-- 

37: h-.75; np-100; ns-50; nx-40; ny-40; 
as; end 


4» ^ Generate boundary points for least square 
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. 4 approximation 
; zz [exp(i*linspace(0,pi/2,round(1.5*np))),... 


linspace(i,-h*i,np),... 
linspace(-h*i,-h,round(np/2))]; 


s Z-z(:); xb-real(z); xb=[xb;xb(end:-1:1)]; 
. yb=imag(z); yb-[yb;-yb(end:-1:1)]; nb-length(xb); 


. ^ Form the least square equations and solve 
. 4 for series coefficients 

s» a=ones (length(z) ,ns) ; 

si for j=2:ns, a(:,j)=a(:,j-1).*z; end 

sx cof=real(a)\(z.*conj(z))/4; 


s: ^ Generate a rectangular grid for evaluation 
s 4 of deflections 

s: XV-linspace(-h,1,nx); yv-linspace(-1,1,ny); 
s Lx, y]=meshgrid(xv,yv); z-x*i*y; 


. ^ Evaluate the deflection series on the grid 
. df1=-z.*conj (z)/4+ 


real (polyval (cof (ns:-1:1),z)); 


: ^ Set values outside the physical region of 
. ^ interest to zero 
s df£l-real(df1).*(1-((abs(z)»-21)&(real(z)5»20))); 


. ^ Make surface and contour plots 

. hold off; close; surf(x,y,df1); 

. Xlabel(’x axis’); ylabel(’y axis’); 
; Zlabel(’deflection’); view(-10,30) ; 
. title(’Membrane Deflection’); colormap([1 1 1]); 
: shg, disp(... 

. "Press [Enter] to show a contour plot’), pause 
. ^ print -deps membdef1; 

. contour(x,y,df1,15,’k’); hold on 

: plot(xb,yb,’k-’); axis(’equal’), hold off 

. Xlabel(’x axis’); ylabel(’y axis’); 

; title(’Membrane Surface Contour Lines’), shg 

. 4 print -deps membcntr 
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3.4.2 Mixed Boundary Value Problem for a Function Harmonic Inside 
a Circular Disk 


Problems where a partial differential equation is to be solved inside a region with 
certain conditions imposed on the boundary occur in many situations. Often the dif- 
ferential equation is solvable exactly in a series form containing arbitrary linear com- 
binations of known functions. An approximation procedure imposing the boundary 
conditions to compute the series coefficients produces a satisfactory solution if the 
desired boundary conditions are found to be well satisfied. Consider a mixed bound- 
ary value problem in potential theory [73] pertaining to a circular disk of unit radius. 
We seek u(r,0) where function values are specified on one part of the boundary 
and normal derivative values are specified on the remaining part. The mathematical 
formulation is 


Ou lôu 18u 
Or? | ror Bg 
u(1,0) = f(0), -a<0<a, 

Ou 

ðr 


The differential equation has a series solution of the form 


=0,0<r<1,0<0<2r, 
(1,0) =g(0), a «0 «2n — a. 


(r,0) = co + Y [cs cos(n0) + dn sin(n6)] 
where the boundary conditions require 


co + Mes cos(n8) + dn sin(n0)| = f(0) , -a <0 < a, 


nci 


and 
oo 


5 n[Cn cos(n0) + dn sin(n0)] = g(0) , a < 0 < 21 — a. 

n=1 
The series coefficients can be obtained by least squares approximation. Let us ex- 
plore the utility of this approach by considering a particular problem for a field which 
is symmetric about the x-axis. We want to solve 


V7u=0,r<1, 


u(1, 0) = cos(0) , |0| < 2/2, 
Ou 
Or 


This problem characterizes steady-state heat conduction in a cylinder with the left 
half insulated and the right half held at a known temperature. The appropriate series 


solution is 
oo 
u= 1 Cnt” cos(n0) 
n=0 


—(1,0)=0, «/2 « |0| X n. 
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subject to 


5 Cn cos(n0) = cos(0) for |0| < 7/2, 
n=0 


and 


5 Ncn cos(n0) = 0 for 1/2 < |0| € r. 

n=0 
We solve the problem by truncating the series after a hundred or so terms and forming 
an overdetermined system derived by imposition of both boundary conditions. The 
success of this procedure depends on the series converging rapidly enough so that a 
system of least squares equations having reasonable order and satisfactory numerical 
condition results. It can be shown by complex variable methods (see Muskhelishvili 
[73]) that the exact solution of our problem is given by 


u = real [e+ + (1—27!) y z2 + 1| /2,|z| €1 


where the square root is defined for a branch cut along the right half of the unit circle 
with the chosen branch being that which equals +1 at z = 0. Readers familiar with 
analytic function theory can verify that the boundary values of u yield 


u(1,0) = cos(0) , |0| € 7/2, 


u(1,0) = cos(0) + sin(|0]/2)4/2| cos(0)| , 1/2 < |0| € m. 


A least squares solution is presented in function mbvp. Results from a series of 
100 terms are shown in Figure 3.3. The series solution is accurate within about one 
percent error except for points near 0 = 7/2. Although the results are not shown 
here, using 300 terms gives a solution error nowhere exceeding 4 percent. Hence 
the least squares series solution provides a reasonable method to handle the mixed 
boundary value problem. 
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Mixed Boundary Value Problem Solution for 80 Terms 


1.2 T 


function value and error 


I 
—— Function value 
— - Solution Error 


80 100 
polar angle 


120 


140 160 180 


Figure 3.3: Mixed Boundary Value Problem Solution 
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MATLAB Example 


Program mbvprun 


. function mbvprun(nser,nf,ng,neval) 


^ Example: mbvprun(nser,nf,ng,neval) 


^ Mixed boundary value problem for a function 
^ harmonic inside a circle. 


^ User m functions required: 
^ | mbvp 


. dispC Calculating’); 


: ^ Set data for series term and boundary 
. 4^ condition points 
: if nargin-- 


nser-80; nf-100; ng-100; neval-500; 


; end 


: ^ Compute the series coefficients 
: [cof ,y]=mbvp(’cos’ ,pi/2,nser,nf ,ng,neval) ; 


. ^ Evaluate the exact solution for comparison 
2: thp-linspace(0,pi,neval)'; 

23: y=cos (thp* (0: nser-1))*cof ; 

. ye=cos(thp)+sin(thp/2) .* 


sqrt (2*abs (cos (thp))) .*(thp>=pi/2) : 


2: 4^ Plot results showing the accuracy of the 

2: 4 least square solution 

2» thp-thp*180/pi; plot(thp,y,’-’,thp,y-ye,’--’); 
. Xlabel(’polar angle’); 

. ylabel(’function value and error’) 

. title([’Mixed Boundary Value Problem ’, 


Solution for ’,int2str(nser),’ Terms’]); 


: legend C Function value’,’Solution Error’); 
. figure(gcf); % print -deps mbvp 


3: function [cof,yl- ... 


mbvp(func,alp,nser,nf,ng,neval) 
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65: 


% func - 


^ alp = 


% user - 


: 4 Lcof,y]=mbvp(func,alp,nser ,nf ,ng,neval) 


. ^ This function solves approximately a mixed 
. ^ boundary value problem for a function which 
; ^ is harmonic 
. ^ about the x axis, and has boundary conditions 
. ^ involving function values on one part of the 
. ^ boundary and zero gradient elsewhere. 


inside the unit disk, symmetric 


function specifying the function 
value between zero and alp 
radians 

angle between zero and pi which 
Specifies the point where 
boundary conditions change from 
function value to zero gradient 
number of series terms used 
number of function values 
Specified from zero to alp 
number of points from alp to pi 
where zero normal derivative is 
Specified 

number of boundary points where 
the solution is evaluated 
coefficients in the series 
solution 

function values for the solution 


: ^ Create evenly spaced points to impose 
. ^ boundary conditions 

. thi-linspace(0,alp,nf); 

. th2=linspace(alp,pi,ngt1); th2(1)-[]; 


. ^ Form an overdetermined system based on the 
. ^ boundary conditions 

. yv=feval (func, 
. cmat=cos([thi(:) ;th2(:)]*(O:nser-1)); 
. [nr,nc]=size(cmat) ; 

. cmat (nf*1:nr,: 


th1); 


y) ss 


(ones (ng, 1) *(0:nser-1)).*cmat(nf*1:nr,:); 


. cof=cmat\ [yv C: 


);zeros(ng,1)]; 
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s: 4 Evaluate the solution on the boundary 
s: thp-linspace(0,pi,neval)'; 
s: y=cos (thp* (0: nser-1))*cof; 


3.4.3 Using Rational Functions to Conformally Map a Circular Disk 
onto a Square 


Another problem illustrating the value of least squares approximation arises in 
connection with an example discussed earlier in Section 2.4 where a slowly conver- 
gent power series was used to map the interior of a circle onto the interior of a square 
[75]. It is sometimes possible for slowly convergent power series of the form 


N 
w—f(2-».62,l4s1 
j—0 


to be replaceable by a rational function 


TL 
X l J 
aZ 
w= m : 
1+ 1 bz? 
J=1 


Of course, the polynomial is simply a special rational function form with m = 0 and 
n = N. This rational function implies 


n m 

X je rem 
az w ) b,z) = w. 

J=0 J=1 


Coefficients a, and b, can be computed by forming least square equations based on 
boundary data. In some cases, the resulting equations are rank deficient and it is 
safer to solve a system of the form UY = V as Y = pinv(U) * V rather than 
using Y = U\V. The former solution uses the pseudo inverse function pinv which 
automatically sets to zero any solution components that are undetermined. 

Two functions ratcof and raterp were written to compute rational function co- 
efficients and to evaluate the rational function for general matrix arguments. These 
functions are useful to examine the conformal mapping of the circular disk |z| < 1 
onto the square defined by | real(w)| € 1, |imag(w)| € 1. A polynomial approxi- 
mation of the mapping function has the form 


where N must be quite large in order to avoid excessive corner rounding. If we 
evaluate w versus z on the boundary for large N (500 or more), and then develop 
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Rational Function Map Close to a Corner 


TT. mN 


0.95 - j 


0.9- 1 


0.85 - E 


imaginary axis 


0.8 - 4 


0.75 - 4 


0.7- 4 


I L L £ L L L 
0.65 0.7 0.75 0.8 0.85 0.9 0.95 1 
real axis 


Figure3.4: Rational Function Map Close to a Corner 


a rational function fit with n = m = 10, a reasonably good representation of the 
square results without requiring a large number of series terms. The following pro- 
gram illustrates the use of functions ratcof and raterp. It also includes a function 
sqmp to generate coefficients in the Schwarz-Christoffel series.(See Chapter 11 for 
further discussion.) Figure 3.4 shows the geometry mapping produced near a corner. 


MATLAB Example 


Program makratsq 


function [ctop,cbot]=makratsq 

^ Example:  [ctop,cbot]-makratsq 

y, AOE O OE O OE IIo 

^ Create a rational function map of a unit disk 
onto a square. 


^ User m functions required: 
y sqmp, ratcof, raterp 


99 A OUR ie sQES M oem 
"x 


e 
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; disp? 


: disp? 2); 
. dispC RATIONAL FUNCTION MAPPING OF A CIRCULAR’); 
DISK ONTO A SQUARE’); disp? 7); 

; disp(’Calculating’); disp? 7); 


.0787 
.5045 
. 0353 
.1458 
.1910 
.1797 
.0489 
.2595 
.0945 
. 0068 


z3 
| 


x 
| 
OOoooocoococcocom-^- 


OOooooocoocoococomn- 


s 4 Generate boundary points given by the 
. h Schwarz-Christoffel transformation 

: nsc-501; np-401; ntop-10; nbot-10; 

; zcexp(i*linspace(0,pi/4,np)); 
. w=sqmp(nsc,1,1,1,0,45,np); 

. W=mean (real (w) )+i*imag(w) ; 

: z=[z,conj(z)]; w=[w,conj(w)]; 


23: ^ Compute the series coefficients for a 

. ^ rational function fit to the boundary data 
s [ctop,cbot]-ratcof(z.^4,w./z,ntop,nbot); 

. ctop=real(ctop); cbot-real(cbot); 


2: 4 The above calculations produce the following 
2» 4 coefficients 
: 4 [top,bot]= 

.4948 
.1406 
.1594 
.1751 
.1513 
.0253 
.2516 
.1069 
.0102 
. 0001 


: ^ Generate a polar coordinate grid to describe 
. ^ the mapping near the corner of the square. 

. ^ Then evaluate the mapping function. 

5 ri-.95; r2-1; nr=12; 
. ti-.9*pi/4; t2-1.1*pi/4; nt-101; 

. [r,th]=meshgrid(linspace(r1,r2,nr), 


linspace(t1,t2,nt)); 
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. Z=r.*exp(ixth); w-z.*raterp(ctop,cbot,z.^4); 


5: 4 Plot the mapped geometry 
s: close; u-real(w); v-imag(w); 
5 plot(u,v,’k’,u’,v’,’k’), axis equal 

; title(C^ Rational Function Map Close to a Corner?) 


75: 


. Xlabel(’real axis’); ylabel(’imaginary axis’); 
. figure(gcf); % print -deps ratsqmap 


. function [w,b]=sqmp(m,ri,r2,nr,t1,t2,nt) 
^ 


0 


: ^ This function evaluates the conformal 

. ^ mapping produced by the Schwarz-Christoffel 

. ^ transformation w(z) mapping abs(z)«-1 inside 

. ^ a square having a side length of two. The 

. ^ transformation is approximated in series form 
. ^ which converges very slowly near the corners. 
. ^ This function is the same as squarmap of 

. ^ chapter 2 with no plotting. 

2 


Am - number of series terms used 
.%» ri,r2,nr - abs(z) varies from ri to r2 in 
% nr steps 
. 4 ti,t2,nt - arg(z) varies from ti to t2 in 
A nt steps (t1 and t2 are 
e d measured in degrees) 
Da - points approximating the square 
AD - coefficients in the truncated 
bw series expansion which has 
ix the form 
^ 
2 w(z)=sum({j=1:m},b(j) *z* (4*j-3)) 


; 4 User m functions called: none. 
0 


: ^ Generate polar coordinate grid points for the 
. ^ map. Function linspace generates vectors with 
. ^ equally spaced components. 

. r-linspace(ri,r2,nr)'; 

. t=pi/180*linspace(t1,t2,nt) ; 

. z=(r*ones(1,nt)).*(ones(nr,1)*exp(i*t)); 

95: 

: ^ Compute the series coefficients and evaluate 
: ^ the series 

; k=1:m-1; 

. b=cumprod([1,-(k-.75) .*(k-.5) ./(k.*(k+.25))]); 
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i 


: b=b/sum(b); w-z.*polyval(b(m:-1:1),z.^4); 


: function [a,b]-ratcof(xdata,ydata,ntop,nbot) 


: 4 la,b]=ratcof (xdata,ydata,ntop,nbot) 


: 4 Determine a and b to approximate ydata as 


% a rational function of the variable xdata. 
%, The function has the form: 


% y(x) = sum(1=>ntop) ( a(j)*x^(j-1) ) / 


y^ ( 1 + sum(1-»nbot) ( b(j)*x7(j)) D 
^ 
^ xdata,ydata - input data vectors (real or 
^ complex) 
^ ntop,nbot - number of series terms used in 
% the numerator and the 
m4 denominator. 


; 4 User m functions called: none 


s ydata-ydata(:); xdata-xdata(:); 

; m=length(ydata) ; 

; if nargin--3, nbot=ntop; end; 

: x=ones(m,ntoptnbot); x(:,ntop*1)--ydata.*xdata; 
: for i-2:ntop, x(:,i)=xdata.*x(:,i-1); end 

: for i-2:nbot 


x(:,i*ntop)-xdata.*x(:,i*ntop-1); 


; end 
; ab=pinv(x)*ydata; Zab=x\ydata; 
; acab(1:ntop); b=ab(ntopti:ntoptnbot) ; 


3: function y=raterp(a,b,x) 
: 4 y=raterp(a,b,x) 


.% This function interpolates using coefficients 
: ^ from function ratcof. 
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as ^ a,b - polynomial coefficients from function 
46: h ratcof 


i h X  - argument at which function is evaluated 
as h y | - computed rational function values 

ao: h 

s: ^ User m functions called: none 

a ce necem mui ld ea can mi 
52: 

s: a=flipud(a(:)); b-flipud(b(:)); 

54 y=polyval (a,x) ./(1+x.*polyval(b,x)); 


E 


3.5 Eigenvalue Problems 
3.5.1 Statement of the Problem 


Another important linear algebra problem involves the computation of nonzero 
vectors X and numbers A such that 


AX = AX 


where A is a square matrix of order n having elements which may be real or com- 
plex. The number A, which can also be real or complex, is called the eigenvalue 
corresponding to the eigenvector X. The eigenvalue equation implies 


A- A|X 2 0 
so that A values must be selected to make JA — A singular. The polynomial 
F(A) = det(IA — A) = A* + A + 


is called the characteristic equation and its roots are the eigenvalues. It can be fac- 
tored into 


FA) = A= At) A= Aa) ++ A= An): 


The eigenvalues are generally complex numbers and some of the roots may be re- 
peated. In the usual situation, distinct roots A1, +++, An, yield n linearly independent 
eigenvectors obtained by solving 


(A-A,D)X,=0,1<9<n. 


The case involving repeated eigenvalues is more complicated. Suppose a particular 
eigenvalue such as A, has multiplicity k. Then the general solution of 


(A—AD)X 20 


will yield as few as one, or as many as k, linearly independent vectors. If fewer than 
k independent eigenvectors are found for any root of multiplicity k, then matrix A is 
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called defective. Occurrence of a defective matrix is not typical. It usually implies 
special behavior of the related physical system. The combined set of eigenvectors 
can be written as 


A[X1, +++, Xn] = [X08 | XnAn] = [X7 , Xn] diagQ\1,--- , An) 


or 
AU =UA 


where U has the eigenvectors as columns and A is a diagonal matrix with eigenvalues 
on the diagonal. When the eigenvectors are independent, matrix U, known as the 
modal matrix, is nonsingular. This allows A to be expressed as 


A-UAU-! 


which is convenient for various computational purposes. With repeated eigenvalues, 
the modal matrix is sometimes singular and the last form of decomposition fails. 
However, the eigenvectors are always independent when the eigenvalues are distinct. 
For the important special case of a symmetric matrix, a linearly independent set of 
eigenvectors always exists, even when some eigenvalues are repeated. 

A matrix A is symmetric if A = A’ where A’ is obtained by interchanging 
columns and rows, and conjugating all elements. Symmetric matrices always have 
real eigenvalues and a linearly independent set of eigenvectors which can be or- 
thonormalized. The eigenvectors X , and X; for any two unequal eigenvalues auto- 
matically satisfy an orthogonality condition 


X/X, 20, 3z k. 


Eigenvectors for the same repeated eigenvalue are not automatically orthogonal. 
Nevertheless, they can be replaced by an equivalent orthogonal set by applying a 
process called Gram-Schmidt orthogonalization [47]. In cases we care about here, 
the symmetric matrix A always has real elements. Therefore the eigenvalues are real 
with eigenvectors satisfying X / X, = 6,,, where 6,, is the Kronecker delta symbol. 
The orthogonality condition is equivalent to the statement that U 'U = I, so a real 
symmetric matrix can be expressed as 


A=UAU' 


It is important in MATLAB that the symmetry condition A’ = A be satisfied per- 
fectly. This implies a zero value for max(max(abs(A-A’))). Sometimes, results that 
would be symmetric if roundoff error did not occur may produce unsymmetric re- 
sults contrary to expectation. For example, A — B C B' should be symmetric if C 
is symmetric. Replacing A by (A + A")/2 finally will assure perfect symmetry. The 
MATLAB function eig computes eigenvalues and eigenvectors. When a matrix is 
symmetric, eig generates real eigenvalues and orthonormalized eigenvectors. 

An important property of symmetric matrices and the related orthonormal eigen- 
vector set occurs in connection with quadratic forms expressed as 


F(Y)-Y'AY 
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where Y is an arbitrary real vector and A is real symmetric. The function F(Y) isa 
one-by-one matrix; hence, it is a scalar function. The algebraic sign of the form for 
arbitrary nonzero choices of Y is important in physical applications. Let us use the 
eigenvector decomposition of A to write 


F 2Y'UAU'Y = (U'Y)' A(U'Y). 
Taking X = U'Y and Y = UX gives 
F = X'AX = Ai? + ows + Agee +... + Az. 


This diagonal form makes the algebraic character of F evident. If all ^, are positive, 
then F is evidently positive whenever X has at least one nonzero component. Then 
the quadratic form is called positive definite. If the eigenvalues are all positive or 
Zero, the form is called positive semidefinite since the form cannot assume a negative 
value but can equal zero without having X — 0. When both negative and positive 
eigenvalues occur, the form can change sign and is termed indefinite. When the 
eigenvalues are all negative, the form is classified as negative definite. Perhaps the 
most important of these properties is that a necessary and sufficient condition for the 
form to be positive definite is that all eigenvalues of A be positive. 
An important generalization of the standard eigenvalue problem has the form 


AX —ABX 


for arbitrary A and nonsingular B. If B is well conditioned, then it is computation- 
ally attractive to simply solve 


B-^!AX 2 AX. 


In general, it is safer, but much more time consuming, to call eig as 


EIGVALS]-eig(A,l 


This returns the eigenvectors as columns of EIGVECS and also gives a diagonal 
matrix EIGVALS containing the eigenvalues. 


3.5.2 Application to Solution of Matrix Differential Equations 


One of the most familiar applications of eigenvalues concerns the solution of the 
linear, constant-coefficient matrix differential equation 


BY (t) = AY (t) , Y(0) = Yo. 
Component solutions can be written as 


" 


Y(t) =Xe™, Y dqyeAxe" 
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where X and A are constant. Substitution into the differential equation gives 


(A— AB)Xe'* — 0. 


A 


Since e^* cannot vanish we need 


AX = ABX. 


After the eigenvalues and eigenvectors have been computed, a general solution is 
constructed as a linear combination of component solutions 


n 
zt At 
Y= J X,e""c,. 
j=l 


The constants c, are obtained by imposing the initial condition 
Y (0) = [X1, X2, nm ; Xa]. 
Assuming that the eigenvectors are linearly independent we get 


e= Xi Xn] Y 


3.5.3 TheStructural Dynamics Equation 


Eigenvalues are also useful to solve the important second order matrix differential 
equation for which a particular solution was constructed earlier using real arithmetic. 
We will now use complex arithmetic and the versatile matrix notation provided in 
MATLAB. Structural mechanics applications often lead to the second order matrix 
differential equation 


MX(t) + CX(t) + K X(t) = Fi cos(w t) + Fo sin(w t) 


where M, C, K are constant matrices of order n, and F1, F> are constant vectors of 
length n, and w is the forcing function frequency. Initial conditions of the form 


X(0)— Xo, X(0) = Vo 


also apply. Solving this initial value problem involves combining a particular so- 
lution and a homogeneous solution. The solution we present below applies subject 
to the restriction that 1) the eigenvalues of the homogeneous equation should be 
nonzero and 2) if matrix C is zero, then iw must not coincide with an eigenvalue of 
the homogeneous differential equation. The particular solution is 


X,(t) = real(ae'^*), a = [K — Me? + iCu] \ [F1 — iF]. 


where we must assume that the implied matrix inversion exists. The particular solu- 
tion satisfies initial conditions 


X,(0) = real(a), X,(0) = real(i a w). 
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The particular solution plus the homogeneous solution, X ;, (t), must satisfy the gen- 
eral initial conditions. Let us introduce 


Z(t) = [Xn (E); X«(0] 
which obeys the homogeneous first order equation 
Z(t) = AZ(t) , A= leye(n,n), zeros(n,n) ; -M \ [K, C] 


and can be determined using the eigenvectors and eigenvalues of A. Denoting the 
matrix of eigenvectors as U and the column of eigenvalues as A, we find that 


Z(t) = U diag(D) exp(i At) 


where 
D = UN[Xo - Xp(0); Vo — Xp(0)] 


to satisfy the initial conditions. With ¢ taken as a row of time values, the homoge- 
neous solution is obtained as the first n rows of Z, and the total solution is just 


X(t) = Xp(t) + Xn (t). 


A program was written to solve the structural dynamics equation. Error checks are 
made for the exceptional cases mentioned above. If the system is undamped (C = 0) 
and iw matches an eigenvalue of A, then program execution terminates. Occurrence 
of zero or repeated eigenvalues is also avoided. The program consists of a driver 
named strdyneq which reads data from a function provided by the user. An example 
function named threemass is included as a model for data preparation. Function 
fhrcmk constructs the general solution of the equation. Results of the computation 
can be plotted one component at a time. In addition to plotting, the program outputs 
the eigenvalues, a matrix of solution components, and vectors showing the lower and 
upper limits of motion for each degree for freedom in the system. Function strdyneq 
calls fhrmck at lines 25 and 34. The name of a function defining the input data is 
requested. Users can employ function threemass to test the program. Threemass 
models a configuration of three identical masses sliding on a smooth horizontal plane 
and connected by four identical springs and viscous dampers. The outer two masses 
are connected to walls and are subjected to forces having equal magnitude but op- 
posite direction. The middle mass has no driving force. The system is initially at 
rest with zero deflection when forcing functions are applied which nearly resonate 
with the fourth eigenvalue of the damped homogeneous system. This example was 
devised to illustrate how the system response grows rapidly when the forcing func- 
tion is nearly resonant. Function fhrmck does most of the computation work which 
occurs at lines 108-109, 132-134, and 139-140. This example illustrates nicely the 
power of the intrinsic matrix operators provided in MATLAB. A final caveat about 
the solution method using eigenvalues is that it is somewhat limited by special cases 
like repeated eigenvalues or a forcing function resonant with a natural frequency. 
Numerical integration solvers like ode45 are not vulnerable to such difficulties. 
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MATLAB Example 
Output Using Function Threemass 


strdyneq; 


SOLUTION OF THE DIFFERENTIAL EQUATION 
M*Y''«C*Y'«K*Y-F1*COS (W*T) +F2*SIN (W*T) 


Give the name of a function to create data values 
(Try threemass as an example) 
>? threemass 


Input coordinate number, tmin and tmax 
(only press return to stop execution)>? 1,0,50 


The value of i*w is at distance 0.050001 


from the eigenvalue -0.054+1.41331 


Input coordinate number, tmin and tmax 
(only press return to stop execution)>? 2,0,50 


Input coordinate number, tmin and tmax 
(only press return to stop execution) >? 


The system eigenvalues are: 


lam = 
-0.0146 - 0.76521 
-0.0146 + 0.76521 
-0.0500 - 1.41331 
-0.0500 + 1.4133i 
-0.0854 - 1.84581 
-0.0854 + 1.84581 


Range of solution values for final times is: 
maxy = 


6.4255 0.0000 6.4935 


miny = 
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-6.4935 -0.0000 -6.4255 


All done 


RESPONSE VARIABLE NUMBER 1 
8 T T T T T T T 


-2r 


-4b 


-6r 


-8 1 1 $ 1 1 1 1 1 


1 
0 5 10 15 20 25 30 35 40 45 
time 


Figure 3.5: Motion of Mass 1 in Threemass Model 
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50 


ps RESPONSE VARIABLE NUMBER 2 


t 


-8 F 


-10 fi L fi fi fi 
0 5 10 15 20 25 
time 


Figure 3.6: Motion of Mass 2 
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30 35 40 45 


in Threemass Model 


50 


Motion of First and Second Mass 
MATLAB Code 


1. function [t,y,lam]-strdyneq 
2: 
3 ^ [t,y,lam]=strdyneq 
4 


s 4 This program integrates the structural dynamics 

« 4 equation characterized by a general second order 
7 ^ matrix differential equation having a harmonic 

s 4 forcing function. Input involves mass, stiffness, 
o h and damping matrices as well as force magnitudes, 
1: 4 a forcing frequency, and initial conditions. Data 
u: 4 parameters for the program are created in a user 
: ^ Supplied function provided by the user. (For an 
13: 4 example, see function threemass shown below.) 


is: titl=[’\nSOLUTION OF THE DIFFERENTIAL EQUATION\n’,... 
16: 7M#Y????+CY? ?+K*Y=F1*COS (W*T) +F2*SIN (W*T) NnNn? ] ; 

ir: fprintf (titl); 

18: disp( -— 

19: "Give the name of a function to create data values’) 
2: disp(’ (Try threemass as an example)’) 

2: name=input(’>? ’,’s’); 

2: eval([? [m,c,k,f1,f2,w,nt,yO,vO]=’,name,’;’]); jj=1; 
2: While 1 

2: fprintf(’\nInput coordinate number, tmin and tmax’) 
2;  fprintf(’\n(only press return to stop execution) ’) 
26: [j,t1,t2]=inputv(’>? ’); 

a, if isnan(j), break; end; J-int2str(j); 

28: [t,y, lam]=fhrmck(m,c,k,f1,f2,w, [t1,t2] ,nt,y0,v0); 


2: if isnan(t), return, end 

so:  [dif,h]=min(abs(lam-i*w)); lj-num2str(lam(h)); 
x if jj==1, jj=jj+1; dispC ’) 

32: disp(['The value of i*w is at distance ’,... 
33: num2str(dif)]) 

34: disp(['from the eigenvalue ’,1j]) 

s end 


3:  plot(t,y(:,j),’k-’), xlabel(C time?) 

s:  ylabel([’y(’,J,’)?]) 

ss — title(['RESPONSE VARIABLE NUMBER ?,J]) 
3» grid on, shg, dumy=input(’ ’,’s’); 

40 end 
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. fprintf(’\nThe system eigenvalues are: Wn?) 

. display (lam) 

cfprintf(.. 

. "Range of solution values for final times is: Wn?) 
s maxy-max(y); miny-min(y); display (maxy) 

. display(miny), fprintf(?All done\n’) 


so: function [m,c,k,f1,f2,w,nt,yO,vO]-threemass 


[n,c,k,f1,f2,w,nt,yO,vO]-threemass 

This function creates data for a three mass 
system. The name of the function should be 
changed to specify different problems. However, 
the output variable list should remain unchanged 
for compatibility with the data input program. 


. m=eye(3,3); k=[2,-1,0;-1,2,-1;0,-1,2]; c=.05*k; 


2A 
. £1=[-1;0;1]; £2=[0;0;0]; w=1.413; nt-1000; 


5: % 
=% 


A 
. yO=[-.5;0;.5]; vO-zeros(3,1); y0=0*y0; 


Data to excite the highest mode 


Data to excite the lowest mode 
fi-[1;1;1]; £2=[0;0;0]; w=.7652; nt=1000; 


Homogeneous initial conditions 


. function [t,y,lam]-fhrmck(m,c,k,f1,f2,w,tlim,nt,yO,vO) 


[t,y,lam]-fhrmck(m,c,k,f1,f2,w,tlim,nt,yO,vO) 
This function uses eigenfunction analysis to solve 
the matrix differential equation 

m*y?? (t) *c*y? (t) -*k*y (t)=f1*cos (wet) -f2*sin(w*t) 
with initial conditions of y(0)=y0, y'(0)-vO 
The solution is general unless 1) a zero or repeated 
eigenvalue occurs or 2) the system is undamped and 
the forcing function matches a natural frequency. 
If either error condition occurs, program execution 
terminates with t and y set to nan. 
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O04 m,c,k - mass, damping, and stiffness matrices 


. 4 £1,£2  - amplitude vectors for the sine and cosine 
cde forcing function components 

AW - frequency of the forcing function 

:% tlim - a vector containing the minimum and 

:% maximum time limits for evaluation of 

:% the solution 

:% nt - the number of times at which the solution 
:% is evaluated within the chosen limits 

bd for which y(t) is computed 

^ yO,vO  - initial position and velocity vectors 
Nr - vector of time values for the solution 
Ay - matrix of solution values where y(i,j) 

mA is the value of component j at time t(i) 

; 4 lam - the complex natural frequencies arranged 
eh in order of increasing absolute value 


; if nargin--0 % Generate default data using 2 masses 


m=eye(2,2); k=[2,-1;-1,1]; c=.3*k; 
f£1=(0;1]; f2-[0;0]; w=0.6; tlim=[0,100]; nt=400; 


. end 
. n=size(m,1); t-linspace(tlim(1),tlim(2),nt); 
. if nargin<10, yO-zeros(n,1); v0=y0; end 


: 4 Determine eigenvalues and eigenvectors for 

. 4 the homogeneous solution 

. A=[zeros(n,n), eye(n,n); -m\[k, cl]; 

. [U,lam]=eig(A); [1am,jl-sort(diag(lam)); U=U(:,j); 


; ^ Check for zero or repeated eigenvalues and 

: 4 for undamped resonance 

. wnin-abs(lam(1)); tol-wmin/1e6; 

: [dif ,J]=min(abs(lam-itw)); 1j=num2str(lam(J)); 
; if wmin==0, disp(’ ’) 


disp(’The homogeneous equation has a zero’) 
disp(’eigenvalue which is not allowed.’) 
disp(’Execution is terminated’), disp(’ ?) 
t=nan; y=nan; return 


. elseif any(abs (diff (lam) )<tol) 


disp(’A repeated eigenvalue occurred.’) 
disp(’Execution is terminated’) ,disp(’ ?) 
t=nan; y=nan; return 


; elseif dif«tol & sum(abs(c(:)))==0 
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35: 


36. else 


NO e 


[o [o [o [o ou ol ol ol [91] 
P 


CO 
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g 


DAE ES 


disp(C The system is undamped and the forcing’) 

disp([’function resonates with ’,... 
'eigenvalue ’,1j]) 

disp(’Execution is terminated.’) 

disp(’? ?), t=nan; y=nan; return 


% Determine the particular solution 
a-(-w^2x*mtkti*w*c)N(Cf1-i*f2); 
yp=real (axexp (i*w*t) ) ; 

yp0=real(a); vpO-real(i*w*a); 


; end 


» 4 Scale the homogeneous solution to satisfy the 
; ^ initial conditions 

; U-U*diag(UN[yO-ypO; vO-vpO]); 

; yh=real(U(1:n, :)*exp(lam*t)) ; 


. 4 Combine results to obtain the total solution 
. t=t(:); y=Lyptyh]’; 


: ^ Show data graphically only for default case 
; if nargin-- 


waterfall(t,(1:n),y?), xlabel(’time axis’) 
ylabel(’mass index’), zlabel(’Displacements’ ) 
title([’DISPLACEMENT HISTORY FOR A ’,... 

int2str(n),?-MASS SYSTEM?]) 
colormap([1,0,0]), shg 


; end 


3.6 Computing Natural Frequencies for a Rectangular 


Membrane 


One of the most useful applications of eigenvalue problems occurs in natural fre- 
quency calculations for linear systems. Let us examine finite difference approx- 
imation for the natural frequencies of a rectangular membrane and how well the 
approximate results compare with exact values. Consider a tightly stretched elas- 
tic membrane occupying a region R in the (a, y) bounded by a curve L on which 
the transverse deflection is zero. The differential equation and boundary conditions 


governing the transverse motion U (x, y, t) are 


T(U;4 + Uyy) = pUu , (x, y)eR, 
U(z,y,t) 20, (x, y)eL, 
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where T' and p denote membrane tension and mass density. The natural vibration 
modes are motion states where all points of the system simultaneously move with 
the same frequency, which says U(x, y, t) = u(x, y) sin(Qt). It follows that u(x, y) 
satisfies 


Une xu Uyy = —w^u , (x,y) eR, 
u(x, y) — 0, (x, y)eL, 


where w = 4/ €. In the simple case of a rectangular membrane lying in the region 
such that 0 < x < a and 0 < y X b, the natural frequencies and mode shapes turn 


out to be 
nm \ 2 mmn? .o(mmaxN , (mmy 
e e +BY s =n (in (E) 
a b a b 


where n and m are positive integers. It is interesting to see how closely these values 
can be reproduced when the partial differential equation is replaced by a second 
order finite difference approximation defined on a rectangular grid. We introduce 
grid points expressed as 


where 
A, =a/(N—-1), A, =b/(M—-1), 


and we call u(i, j) the value of u at x(i), y(j). Then the Helmholtz equation is 
replaced by an algebraic eigenvalue problem of the form 


A?[u(i — 1, j) — 2u(i, j) + u(i - 1, 5)] + A2[u(i, j — 1) 
— 2u(i, j) + u(t, j + 1)] = Auli, j) 


where 
à = (ASAqw)* 


and associated homogeneous boundary conditions 
u(1, 7) = u(N, 7) = u(t, 1) = u(i, M) = 0. 
This combination of equations can be rearranged into familiar matrix form as 
Au-Au, Bu=0. 


The MATLAB function null can be used to solve the boundary condition equations. 
We write as u = Qz where Q = null(B) has orthonormal columns. Substituting 
into the eigenvalue equation and multiplying both sides by Q” then yields a standard 
eigenvalue problem of the form Cz = Az where C = Q’AQ. Denoting the eigen- 
vector matrix of C by V, the eigenvector matrix of the original problem is obtained 
as u = QV, and the desired eigenvalues are simply those of matrix C. 
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A short function named recmemfr was written to form and solve the algebraic 
equations just discussed. Although the ideas are simple, indexing the double in- 
dexed quantities pertaining to the finite difference grid is slightly tedious. Intrinsic 
functions ind2sub and sub2ind are helpful to perform the indexing. Lines 32-34 
of rememfr compute a subset of the lowest frequency values and sort these in as- 
cending order. Lines 37-45 form the homogeneous boundary conditions, and lines 
51-56 construct the discretized Helmholtz equation at interior node points. The main 
computation work is done in lines 59-61 where null and eig are used. Finally, the 
results are sorted, the modal arrays are reshaped, and results are plotted to com- 
pare the approximate and exact frequencies. In the graph shown below for the case 
where (a,b)=(2,1), the frequencies obtained using the finite differences are seen to 
be consistently low. Furthermore, the 50'th frequency is off by about 14 percent, 
even though 200 grid points were used. Applications leading to eigenvalue problems 
occur frequently. The ideas touched on in this simple example will be encountered 
again in Chapters 9 and 10. Readers may find it interesting to modify this exam- 
ple using a higher order difference approximation to see how much the frequency 
estimates improve. 


MEMBRANE FREQUENCIES FOR AX / BY = 2 AND 200 GRID POINTS 
20 


T T 
— exact frequency 
approx. frequency 
18H — - percent error 4 


frequency and % error 
= 
o 
T 


0 1 i 1 1 L 1 1 1 1 
0 5 10 15 20 25 30 35 40 45 50 


frequency number 


Figure3.7: Approximate and Exact Frequencies for a Rectangular 
Membrane 
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Function recmemfr 

. function [w,wex,modes,x,y,nx,ny,ax,by]=recmemfr(... 
ax,by,nx,ny,noplt) 

[w,wex,modes,x,y,nx,ny,ax,by]-recmemfr(a,b,nx,ny,noplt) 

^ This function employs finite difference methods to 


^ estimate the natural frequencies and mode shapes of 
^ a rectangular membrane having fixed edges. 


Ro ICQ MEN ae SEU E den 
e 
sx 


s h ax, by - membrane side lengths along the x and y axes 
1: 4 nx,ny  - number of finite difference points taken in 
u: % the x and y directions including the edges 
AW - vector of (nx-2)*(ny-2) frequencies obtained 
13: h by finite difference approximation of the 
1: h wave equation. These are arranged in 

15: h increasing order 

16: h Wex - vector of exact frequencies 

17: ^ modes - three dimensional array containing the mode 
1s: h shapes for various frequencies. The array 
19; A size is [nx,ny, (nx-2)*(nx-2)] denoting 

20: h the x direction, y direction, and the 

a: h freqency numbers matching components of the 
22: h w vector. The i’th mode shape is obtained 
23: h as reshape(vecs(:,i),n,m) 

2: h X,Y - vectors defining the finite difference grid 
2: ^ noplt  - optional parameter included if no plot of 
26: h the approximate and exact frequencies is to 
27: h be made 

28: 

2: if nargin--0; ax-2; nx-20; by-1; ny=10; end 


3: dx-ax/(nx-1); dy-by/(ny-1); 
3: na=(1:nx-1)’/ax; nb=(1:ny-1)/by; 


33: ^ Compute exact frequencies for comparison 

34 Wwex-pi*sqrt (repmat(na.^2,1,ny-1)*repmat(nb.^2,nx-1,1)); 
35: wex=sort(wex(:)’); x-linspace(0,ax,nx); 

3: Y=linspace(0,by,ny); neig=(nx-2)*(ny-2); nvar-nx*ny; 


3: # Form equations to fix membrane edges 
3: k=O; s-[nx,nyl; c=zeros(2*(nxtny) ,nvar) ; 
4: for j-1:nx 

a:  m-sub2ind(s,[j,jl.[1,ny]); k=k+1; 
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42: 
; end 
: for je-1:ny 


c(k,m(1))=1; k=k+1; c(k,m(2))=1; 


m=sub2ind(s, [1,nx],[j,j]); k=k+1; 
c(k,m(1))=1; k=k+1; c(k,m(2))=1; 


; end 


. ^ Form frequency equations at interior points 
s: k=O; a-zeros(neig,nvar); b=a; 

si; phi=(dx/dy)*2; psi=2*(1+phi) ; 

5: for i-2:nx-1 


for j-2:ny-1 
m=sub2ind(s, [i-1,i,i+1,i,i],[j,j,j,j-1,j+1]); 
k=k+1; a(k,m(1))=-1; a(k,m(2))=psi; a(k,m(3))=-1; 
a(k,m(4))=-phi; a(k,m(5))=-phi; b(k,m(2))=1; 

end 


ss; end 


. ^ Compute frequencies and mode shapes 

. g=null(c); A-a*q; B=b*q; [modes,lam]=eig(B\A) ; 

. [lam,k]=sort(diag(lam)); w=sqrt(lam)’/dx; 

. modes=q*modes(:,k); modes=reshape(modes(:) ,nx,ny,neig) ; 


s 4 Plot first fifty approximate and exact frequencies 
; if nargin>4, return, end 

. m=1:min((50,length(w) , length (vex) ]) ; 

; pcter=100* (wex (m) -w (m) ) ./wex (m) ; 


: clf; plot(m,wex(m),’k-’,m,w(m),’k.’,m,pcter,’k--’) 
. xlabel(’frequency number’) ; 

. ylabel(’frequency and % error’) 

: legend(’exact frequency’ ,’ approx. frequency’,... 


percent error’ ,2) 


s S-['MEMBRANE FREQUENCIES FOR AX / BY = ’,... 


num2str(ax/by,5),’ AND ?,num2str(nx*ny),... 
^ GRID POINTS’]; 


. title(s), grid on, shg 
. ^ print -deps recmemfr 


Dn SeSe 


3.7 Column Space, Null Space, Orthonormal Bases, and SVD 


One remaining advanced topic discussed in this chapter is the factorization known 


as singular value decomposition, or SVD. We will briefly explain the structure of 
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SVD and some of its applications. It is known that any real matrix having n rows, m 
columns, and rank r can be decomposed into the form 


A=USV' 
where 


e U is an orthogonal n by n matrix such that U'U = I 
e V is an orthogonal m by m matrix such that V'V = I 
e Sisan n by m diagonal matrix of the form 


p. 0 D 


where 01,..., Or are positive numbers on the main diagonal with c, > 0,41. 
Constants c, are called the singular values with the number of nonzero values 
being equal to the rank r. 


To understand the structure of this decomposition, let us study the case where 
n > m. Direct multiplication gives 


A' AV — V diag([o7, ..., o2, zeros(1, m — r)]), 


and 
AA'U = U diag([c?, ..., o2, zeros(1, n — r)]). 


Consequently, the singular values are square roots of the eigenvalues of the sym- 
metric matrix A’ A. Matrix V contains the orthonormalized eigenvectors arranged 
so that o, > 6,41. Although the eigenvalues of A'A are obviously real, it may 
appear that this matrix could have some negative eigenvalues leading to pure imag- 
inary singular values. However, this cannot happen because A'AY — AY implies 
A = (AY) ( AY)/(Y'Y), which clearly is nonnegative. Once the eigenvectors and 
eigenvalues of A'A are computed, columns of matrix U can be found as orthonor- 
malized solutions of 


[4A—0,]]U, 20, 0,20, 5». 


The arguments just presented show that performing singular value decomposition in- 
volves solving a symmetric eigenvalue problem. However, SVD requires additional 
computation beyond solving a symmetric eigenvalue problem. It can be very time 
consuming for large matrices. The SVD has various uses, such as solving the normal 
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equations. Suppose an n by m matrix A has n > m andr = m. Substituting the 
SVD into 
A'AX = A'B 


gives 
V diag(c2,...,02)V'X = VS'U'B. 


Consequently, the solution of the normal equations is 
X = V diag(o, ?,...,0,2)S'U' B. 


Another important application of the SVD concerns generation of orthonormal bases 
for the column space and the row space. The column space has dimension r and the 
null space has dimension m — r. Consider a consistent system 


AX = B — U(SV'X). 


Denote SV' X as Y and observe that y, = 0 for 7 > r since c; = 0. Because B can 
be any vector in the column space, it follows that the first r columns of U, which are 
also orthonormal, are a basis for the column space. Furthermore, the decomposition 
can be written as 

AV = US. 


This implies 
AV, =U,0,=0,j>r 


which shows that the final m— r columns of V form an orthonormal basis for the null 
space. The reader can verify that bases for the row space and left null space follow 
analogously by considering A’ = V S'U’, which simply interchanges the roles of U 
and V. 

MATLAB provides numerous other useful matrix decompositions such as LU, 
QR, and Cholesky. Some of these are employed in other sections of this book. The 
reader will find it instructive to read the built-in help information for MATLAB func- 
tions describing these decomposition methods. For instance, the command help V 
gives extensive documentation on the operation for matrix inversion. 


EE: SeSe 


3.8 Computation Time to Run a MATLAB Program 


MATLAB is designed to perform matrix computation with maximum speed and 
accuracy. Consequently, most standard operations like matrix multiplication, Gauss 
reduction, eigenvalue calculation, SVD, etc. are implemented as highly optimized 
and compiled intrinsic functions. Efficient program execution requires optimal use 
of the built-in functions. Executing nested loops can take a lot of time, so using 
coding with nested loops should be avoided when computation time is important. To 
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illustrate how deeply nested loops can slow down execution speed we will compare 
slow multiplication of square matrices by a Fortran style triple loop, and fast multi- 
plication using the intrinsic matrix multiply capability. The ratio of the slow time to 
the fast time is much larger than might initially be expected. 

Before proceeding with our example, consider the difficulties of accurately tim- 
ing a computational process. In the first place, the clock in Intel based systems has 
a resolution of about 0.06 sec, whereas the time for MATLAB to do a 100 by 100 
matrix multiply is about 0.005 secs on a 733 Mhz Pentium 4 computer. This implies 
that, just to account for the crude clock increment, the matrix multiply has to be re- 
peated at least 1200 times to get a total time accurate within one percent. However, 
this is not the only timing difficulty. MATLAB continuously performs housekeep- 
ing tasks such as memory management. The operating system and other programs 
running simultaneously in the background also use computer resources and affect 
recorded times. Hence, any timing of algorithmic processes in MATLAB should be 
done without having several other programs open. Even then, the authors have found 
that times recorded for the same computation done repeatedly often vary around five 
percent. 

The following program named mattimer was written to compare slow and fast 
matrix multiplication. The program input includes the matrix order, the number of 
seconds a loop is performed to improve timing accuracy, and the number of times 
the basic timing operation is repeated to show how recorded times vary among suc- 
cessive computations. The program also gives the number of floating operations 
performed per second (Mflops). An n by n matrix multiply involves n ? dot prod- 
ucts each requiring 7? adds and n multiplies. Hence, the number of floating point 
operations is 2n?. An order 100 matrix multiply done in 0.005 seconds would give 
400 megaflops. Function multimer does the matrix multiply repeatedly and reads 
the elapsed time until the specified total number of seconds is reached. Performing 
loops and reading the clock takes some time, which is subtracted from the time to do 
the looping, matrix multiplication, and clock reading. We also perform the intrinsic 
matrix multiplication in a separate function so that both the fast and slow methods 
have the same computational overhead associated with a function call. Results are 
shown for matrices of order 100 and 1000. The fast time for an order 100 matrix 
multiply only took 0.00503 seconds giving 398 megaflops. By comparison, the slow 
method took more than eighteen hundred times as long as the fast method. This is 
comparable to making a one hour task take about two and a half months, working 
twenty-four hours a day, seven days a week. Evidently, intrinsic MATLAB matrix 
multiply works very well, but nested looping is slow. Something else worth noting is 
that a dense matrix of order 1000 does not stretch the capabilities of a modern micro- 
computer. Storing a million word double-precision array only takes 8 megabytes of 
RAM, which is a small fraction of the 128 megabytes or more typically provided for 
scientific work. Furthermore, the high order matrix multiply only took 4.6 seconds, 
which is roughly 1000 times as long as the order 100 time. It turns out that the time 
needed for most matrix operations increases like the cube of the order, even though 
a complicated calculation such as singular value decomposition may take around 
seventeen times as long as a Gauss elimination of the same order. 
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»» mattimer(100,10,60); 


MATRIX MULTIPLY TIMING TEST 


Get results for a single timer call 


The repeated multiplication of matrices 
of order 100 may take considerable time. 


Fast multiply takes 0.0050238 secs. 
Megaflops - 398.1034 


Slow multiply takes 9.0714 secs. 
Megaflops - 398.1034 


tslow/tfast = 1805.6723 


Get results for several timer calls 


Time variation defined by 
= 0.076656 


Variation for tfast 


Variation for tslow 


= 0.028181 


>> mattimer(1000,0,60); 


tfast tslow ratio 
5.0473e-003 8.8899e+000 1.7613e+003 
5.0248e-003 8.8271e+000 1.7567e+003 
4.9948e-003 8.9685e+000 1.7956e+003 
5.0075e-003 8.8742e+000 1.7722e+003 
5.3775e-003 8.9599e+000 1.6662e+003 
4.9939e-003 8.8499e+000 .7721e+003 
5.0013e-003 8.8271e+000 1.7650e+003 
5.0217e-003 8.9842e+000 .7891e+003 
5.0182e-003 9.0785e+000 .8091e+003 
4.9905e-003 8.9598e+000 .7954e+003 


(max (t) -min(t)) /mean(t) 


MATRIX MULTIPLY TIMING TEST 


Get results for a single timer call 


The repeated multiplication of matrices 


of order 1000 may take considerable time. 


Fast multiply takes 4.5699 secs. 
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Megaflops - 437.6421 


Slow multiply takes 8882.3899 secs. 
Megaflops - 0.22516 


tslow/tfast - 1943.654 


Program mattimer 


. function mattimer(norder,ktimes,secs) 
0 
0 


» if nargin-- 
6 norder-100; ktimes-10; secs-30; 

7 end 

s: fprintf(’?\nMATRIX MULTIPLY TIMING TEST\n\n’) 

1: disp( Get results for a single timer call?) 

: multimer(norder,secs,1); t-zeros(ktimes,3); 

1: secs=max(secs,30); if ktimes--0, return, end 

is disp( Get results for several timer calls?) 

i; for j=1:ktimes 

18: [£(3,32,t(j, D, t Cj, 2) ] »multimer(norder,secs); 


19; end 
20: T2 (max (t) -min(t))./mean(t); 


22: disp(. ioe 

23. ? tfast tslow ratio’) 
21 for j=l:ktimes 

25: fprintf (°%13.4e %13.4e %13.4e\n’,t(j,:)) 
26: end 


2: disp? ?), disp(... 

2: "Time variation defined by (max(t)-min(t))/mean(t)?) 
2: disp([? Variation for tfast = ',num2str(T(1))]) 

30: disp([’ Variation for tslow = ’ ,num2str(T(2))]) 
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3: function [ratio,tfast,tslow]-multimer(... 


norder,secs,doprint) 
[ratio,tfast,tslow]-multimer(... 
norder,secs,doprint) 


This function compares the times to perform a 
matrix multiply using the built-in matrix multiply 
and the slow method employing scalar triple looping. 
The ratio of compute times illustrates how much 
faster compiled and vectorized matrix operations 
can be compared to similar calculations using 
interpreted code with scalar looping. 
norder - order of the test matrices used. The 
default for norder is 100. 
secs - number of seconds each computation is run 
to get accurate timing. The default (and 
minimum value) is thirty seconds. 
doprint- print intermediate results only if this 
variable is given a value 


ratio - ratio of slow to fast multiply times 

tfast - time in seconds to perform a multiply 
using the built-in precompiled matrix 
multiply 

tslow - time in seconds to perform a multiply 


by triple loop method 
User m functions called: matmultf matmults 
Typical results obtained using a Dell Dimension 
XPS B733r computer with 128MB of RAM gave the 
following values: 
»» mattimer(100,0,60); 
MATRIX MULTIPLY TIMING TEST 


Fast multiply takes 0.0050238 secs. 
Megaflops - 398.1034 


Slow multiply takes 9.0714 secs. 
Megaflops - 398.1034 


tslow/tfast = 1805.6723 
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. 4 >> mattimer(1000,0,60); 
: 4 MATRIX MULTIPLY TIMING TEST 


. ^ Fast multiply takes 4.5699 secs. 
. ^ Megaflops = 437.6421 


s 4 Slow multiply takes 8882.3899 secs. 
: ^ Megaflops = 0.22516 


; 4 tslow/tfast = 1943.654 
45 


. ^ Find time to make a loop and call the clock 
; nmax-5e3; nclock-0; tstart-cputime; 
: while nclock<nmax 


tclock-cputime-tstart; nclock=nclock+1; 


s end 
. ^ Time to do one loop and call the timer 
. tclock=tclock/nclock; 


; if nargin«3, doprint=0; else, doprint-1; end 
. if nargin<2, secs=30; end; secs-max(secs,30); 
: if nargin--0, norder-100; end 

; a=rand(norder,norder); b-rand(norder,norder); 


; if doprint 


disp(’ ?) 
disp(’The repeated multiplication of matrices’) 
disp([’of order ’,num2str(norder),... 
^ may take considerable time.’]) 
disp(’ ?) 


; end 


. 4 Time using intrinsic multiply function 
; pack; tfast-0; nfast-0; tstart-cputime; 
: while tfast<secs 


cf=matmultf(a,b); nfast-nfast-*1; 
tfast-cputime-tstart; 
end 


. tfast-tfast/nfast-tclock; 


. 4 Time using Fortran style, triple for:next looping 
; pack; tslow-0; nslow-0; tstart-cputime; 
; While tslow<secs 
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cs=matmults(a,b); nslow=nslow+1; 
tslow-cputime-tstart; 


5 end 


. tslow=tslow/nslow-tclock; ratio-tslow/tfast; 
: mf lops=inline(’num2str(2*n*3/1le6/t)’,’n’,’t’); 
; if doprint 


disp([’Fast multiply takes ’,... 
num2str(tfast)," secs.’]) 
disp([’Megaflops = ’,.. 
mflops(norder, tfast)]), disp °) 
disp([’Slow multiply takes ’,... 
num2str(tslow),’ secs.’]) 
disp([’Megaflops = ’,. 
mflops(norder, tslow)]), disp(’ ?) 
disp([’tslow/tfast = ’,. 
num2str(tslow/tfast)]), disp(^ 7) 


; function v=matmultf (a,b) 

s ^ v-matmultf(a,b). Matrix multiply using 
» ^ precompiled function in MATLAB 

: V-a*b; 


si function v-matmults (a,b) 

s ^ v-matmults(a,b). Matrix multiply using 
ss: ^ Fortran like triple loop 

si n-size(a,1); m-size(b,2); K=size(a,2); 

s v=zeros (n,m); 

se: for i-1:n 


Iur k=1:K 
t=tta(i,k) *b(k, j); 
end 
v(i,j)=t; 
end 


4; end 
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Chapter 4 


Methods for Interpolation and Numerical 
Differentiation 


4.1 Concepts of Interpolation 


Next we study three types of one-dimensional interpolation: polynomial, piece- 
wise linear, and cubic spline. The MATLAB functions implementing these methods 
are discussed along with some additional software developed by the authors to differ- 
entiate and integrate splines. A simple discussion of cubic spline interpolation for- 
mulated from the viewpoint of elastic beam flexure is given. The chapter concludes 
with a program to compute finite difference formulas for derivatives of general order. 

Interpolation is a process whereby a function is approximated using data known 
at a discrete set of points. Typically we have points (r;,y;) arranged such that 
tj < Xi41. These points are to be connected by a continuous interpolation func- 
tion influenced by smoothness requirements such as: a) the function should not de- 
viate greatly from the data at points lying between the data values; and b) the func- 
tion should satisfy a differentiability condition such as continuity of first and second 
derivatives. 

Piecewise linear interpolation simply connects successive points by straight lines. 
This has the disadvantage of producing a function with piecewise constant slope 
and finite slope discontinuities. An obvious cure for slope discontinuity is to use a 
curve such as a polynomial of degree n-1 (through n points) to produce an interpo- 
lation function having all derivatives continuous. However, it was seen in Section 
2.3 that a polynomial passing exactly through the data points may be highly irreg- 
ular at intermediate values. Using polynomial interpolations higher than order five 
or six often produces disappointing results. An excellent alternative to allowing ei- 
ther slope discontinuities or demanding slope continuity of all orders is to use cubic 
spline interpolation. This method connects successive points by cubic curves joined 
such that function continuity as well as continuity of the first two function derivatives 
is achieved. 

The MATLAB function polyfit(xd,yd,n) can be used to obtain coefficients in a 
polynomial of degree n which either passes through points in data vectors (xd,yd) 
or fits the data in the least square sense. Since a polynomial of degree n-1 can pass 
through n data points, the computation c-polyfit(xd,yd,length(xd)-1) would produce 
coefficients in a polynomial passing through the data values. Evaluating the polyno- 
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mial for an array argument x is accomplished by y=polyval(c,x). Combining the 
two operations gives y=polyval(polyfit(xd,yd,length(xd)-1),x). If the chosen poly- 
nomial order is less than length(xd)-1, then a polynomial fitting the data in the least 
square sense is produced. For example, a polynomial of order 4 might be fitted to 
several hundred points. Of course, how well the least square polynomial actually fits 
the data should be assessed by examining a plot of the curve and the data. MATLAB 
also has various utility functions to work with polynomials such as polyder, polyint, 
conv, and deconv which differentiate, integrate, multiply, and divide. 

Function interp1(xd,yd,x, method’ , extrap’) is a general purpose interpolation func- 
tion providing several types of interpolation including linear and spline. The default 
value for ‘method’ is ‘linear’, If the ‘extrap’ parameter is omitted, then a value of 
NaN (not a number) is returned for any input argument not lying between min(xd) 
and max(xd). Otherwise, extrapolation is performed using the interpolation func- 
tions for the outermost intervals. Readers should be cautious about extrapolating far 
outside the known data range, because this often leads to unreasonable results. 

Engineering applications often use idealized functions which are piecewise linear 
and have finite jump discontinuities. Since function interp1 rejects cases where any 
successive values in the xd vector are equal, we remedy this situation with function 
lintrp(xd,yd,x) to search xd for any repeated values and separate these values by a 
small fraction of max(xd)-min(xd). Then interpl is used to perform the interpolation 
as indicated below. 


Function lintrp 


. function y-lintrp(xd,yd,x) 
^ y=lintrp(xd, yd,x) 


% This function performs piecewise linear 

^ interpolation through data values stored in 

^ xd, yd, where xd values are arranged in 
. ^ nondecreasing order. The function can handle 
o 4 discontinuous functions specified when some 
1: 4 Successive values in xd are equal. Then the 
u: 4 repeated xd values are shifted by a small 
12: 4 amount to remove the discontinuities. 
: 4 Interpolation for any points outside the range 
1: ^ of xd is also performed by continuing the line 
is: 4 Segments through the outermost data pairs. 


Q0. aly Bs aee Do nr us 
z3 
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i 
H 
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1: W xd,yd - vectors of interpolation data values 
1s: h X - matrix of values where interpolated 
19; h values are required 
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20: " 


zs y - matrix of interpolated values 


2: k-find(diff(xd)--0); 

2: if length(k)~=0 

2; — Xd (k*1)72xd (k*1) * (xd end) -xd (1)) *1e3*eps ; 
20; end 

2: y=interp1(xd,yd,x,’linear’,’extrap’); 


Dn SeSe 


4.2 Interpolation, Differentiation, and Integration by 
Cubic Splines 


Cubic spline interpolation is a versatile method to pass a smooth curve through a 
sequence of data points. The technique connects the data values with a curve having 
its third derivative piecewise constant. The curve is piecewise cubic with y(x), y’(x) 
and y" (x) continuous over the whole data range. The MathWorks markets a Spline 
Toolbox providing extensive capabilities to work with spline functions. A few func- 
tions from that toolbox are included in standard MATLAB. The intrinsic functions 
spline, ppval, mkpp, and unmkpp are extended here to handle differentiation and 
integration. Spline interpolation, viewed from Euler beam theory, is also discussed 
to amplify on the basic ideas. This simple formulation easily accommodates various 
end conditions. Readers wanting more detail on spline theory will find the books by 
de Boor [27] and by Ahlberg and Nilson [2] to be helpful. 

Cubic spline theory is motivated by a mechanical drafting tool consisting of a 
flexible strip bent over several supports with heights adjustable to fit given data. Euler 
beam theory [9] shows that the deflection curve has third derivative values which are 
constant between successive supports. This implies that the curve is piecewise cubic 
and the third derivative values (relating to internal shear forces in beam analysis) 
can be determined to make the support deflections have chosen values. This is the 
basis of cubic spline interpolation. The method is attractive because the interpolation 
function y(x) is obtainable analytically as well as y'(x), y" (x) and f y(x)da. 

Let us formulate the problem mathematically by taking a piecewise constant form 
for y” (x) and integrating this repeatedly to get y(x). We assume data points (x ;, yi), 
1 < i < n with x; < 2%;41. Each successive data pair can be connected by a cubic 
curve with y'(z) and y"(x) required to be continuous at all interior data points. If 
values of y'(x) or y" (x) are known at the curve ends, algebraic conditions to impose 
those values can be written. Using known values of end slope is appropriate, but 
specifying good second derivative values when end slopes are not known is usually 
not obvious. As an alternative, it is customary to apply smoothness conditions re- 
quiring continuity of y” (a2) and y" (x,, 1). Books on spline theory [7, 2] refer to 
imposition of higher order continuity at interior points as "not-a-knot" conditions. 
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The piecewise constant third derivative of the interpolation function is described as 


where c; are constants to be determined, and the singularity function 
<£-a>"=(x-a)"(« >a) 


is used. This formula for y"'(x) is easy to integrate, and making the curve pass 
through the data points is straightforward. It follows that 


n-1 
y'(z)- y, t+) g<- s >, 
j=l 


Bese di LR 
y (x) =y +y- r) til «zr-z;»?, 
j=l 
1 n-1 
y(z) = yı +y (@- a1) + 5y (£ - 21) +55 <r- rj >’, 
2 6m 
x 
1, ” 
f ves = nle- 21) n 21)? + paie Y 
Tı 
n—1 
+ 21 XG «r—zj 
j=l 


The interpolation function automatically goes through the first data point, and the 
remaining constants are required to satisfy 


‘ley 1. 
Yi— yı =y(ri =r) unm) r6 < Tti— Tj >’, $2, Th 
j=l 


Since n + 1 unknowns are present in the above system, two more end conditions 
must be included. Five familiar combinations of end conditions include: 1) the "not- 
a-knot" condition applied at each end; 2) the slope given at each end; 3) the slope 
given at the left end and the "not-a-knot" condition at the right end; 4) the "not-a- 
knot" condition at the left end and the slope given at the right end; and 5) a periodic 
spline is created by making the first and last points have the same values of y, y’, and 
y". 

Spline interpolation involves solution of linear simultaneous equations. A desktop 
computer solves a system of 200 equations in less than 0.03 seconds; so, the equation 
solving time is modest unless many points are used. The formulation described above 
is easy to understand, handles general end conditions, and includes interpolation, 
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differentiation, and integration. It was implemented in two general purpose functions 
spterp and spcof used below with function curvprop to compute the length and area 
bounded by a spline curve. Another function splineg using intrinsic function spline 
is also discussed at the end of the present article. The spline routines provided here 
are helpful additions for work with splines since they include spline differentiation 
and integration which do not come in the standard MATLAB package. 


4.2.1 Computing the Length and Area Bounded by a Curve 


The ideas just described were implemented in functions spterp and spcof which 
are called in the following program curvprop. This program computes the length of 
a spline curve and the area bounded by the curve. The length of a curve parameter- 
ized in complex form as 


z(t) = a(t) +iy(t), a<t<b 
can be computed as 
b 
length = | abs(z’(t)) dt. 


Furthermore, when the the curve is closed and is traversed in a counterclockwise 
direction, the area is given by 


b 
area = F) imag(conj(z(t)) z'(t)) dt. 


The curve length is meaningful for an open or closed curve, but the bounded area 
only makes sense for a closed curve. The next chapter discusses area properties for 
shapes bounded by several spline curves. Our present example assumes a simple 
geometry. It is worth mentioning that applying the last integral to an open curve 
gives the area enclosed within the curve combined with a line from the last point to 
the origin and a line from the origin to the first point. This fact is clarified in the next 
chapter which treats general areas bounded by several spline curves. 


The following program curvprop passes a spline curve through data in vectors 
X,y. The length, bounded area, and a set of data points on the curve are computed. 
The curve is assumed to have a smoothly turning tangent. The default data example 
uses points on an ellipse with semi-diameters of two and one. Readers can verify 
that approximating the ellipse with a 21 point spline curve gives an area approxima- 
tion accurate within 0.0055 percent and a boundary length accurate within 0.0068 
percent. Of course, better accuracy is achievable with more data points. 


4.2. Example: Length and Enclosed Area for a Spline Curve 


Function curvprop 


xı function [area,leng,X,Y,closed]=curvprop(x,y,doplot) 


© 2003 by CRC Press LLC 


Q9. amt me (gv. ale OS or By. 


^ Larea,leng,X,Y,closed]-curvprop(x,y,doplot) 


^ This function passes a cubic spline curve through 
^ a set of data values and computes the enclosed 

^ area, the curve length, and a set of points on 

^ the curve. 


C X,y - data vectors defining the curve. 
. 4^ doplot - plot the curve if a value is input for 
M doplot. Otherwise, no plot is made. 
. ^ area  - the enclosed area is computed. This 
m parameter is valid only if the curve 
Sh is closed and the boundary is traversed 
oh in counterclockwise. For a curve, the 
v area agrees with a curve closed using 
:% a line from the last point to the 
oh origin, and a line from the origin to 
Sh the first point. 
. ^ leng - length of the curve 
2: 4 X,Y - set of points on the curve. The output 
a: h% intersperses three points on each segment 
2: h between the starting data values. 
. ^ closed - equals one for a closed curve. Equals zero 
S for an open curve. 


2: 4 For default test data, choose an ellipse with 
: ^ semi-diameters of 2 and 1. 
; if nargin-- 


m-21; th-linspace(0,2*pi,m); 
x-2*cos(th); y=sin(th); x(m)=2; y(m)=0; 


a4, end 

35: 

. ^ Use complex data coordinates 

37: z-x(:)*i*y(:); n-length(z); t=(1:n)’; 

ss chord-sum(abs(diff(z))); d=abs(z(n)-z(1)); 


. ^ Use a periodic spline if the curve is closed 
. if d < (chord/1e6) 


closed-1; z(n)=z(1); endc=5; 
zp=spterp(t,z,1,t,endc) ; 


: ^ Use the not-a-knot end condition for open curve 
: else 
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64 

65: VA 

o: ^ [v,c]=spterp(xd,yd,id,x,endv,c) 

ue uL CE UPON ITATSYIS URNA T OE E EE A 

68: VA 

o» ^ This function performs cubic spline interpo- 
w: ^ lation. Values of y(x),y’(x),y’’(x) or the 
1: ^ integral(y(t)*dt, xd(1)..x) are obtained. 

7»: ^ Five types of end conditions are provided. 

73: h 

ma: ^ xd, yd - data vectors with xd arranged in 

75: h ascending order. 

7; h id - id equals 0,1,2,3 to compute y(x), 
77: h y?’ (x), integral(y(t)*dt,t-xd(1)..x), 
78: h respectively. 

7: 4 V - values of the function, first deriva- 
80: ^ tive, second derivative, or integral 
ai: % from xd(1) to x 

s2: h C - the coefficients defining the spline 
83: % curve. If these values are input from 
sa: h an earlier computation, then they 

s5: % are not recomputed. 

s: 4 endv - vector giving the end conditions in 
an % one of the following five forms: 

ss: % endv=1 or endv omitted makes 

so: % c(2) and c(n-1) zero 

90: h endv-[2,1left end slope,... 

a1: % right_end_slope] to impose slope 


closed=0; endc=1; zp=spterp(t,z,1,t,endc) ; 


;: end 


so: 4 Compute length and area 

5s: 4 plot(abs(zp)),shg,pause 

s: leng-spterp(t,abs(zp),3,n,1); 

s: area-spterp(t,1/2*imag(conj(z).*zp),3,n,1); 
s Z=spterp(t,z,0,1:1/4:n,endc) ; 

s: X=real(Z); Y=imag(Z) ; 

s if nargin>2 


plot(X,Y,?-?,x,y,?.?), axis equal 
xlabel(?x axis’), ylabel(’y axis’) 
title( SPLINE CURVE’), shg 


;: end 


. function [v,c]=spterp(xd,yd,id,x,endv,c) 
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m values at each end 


93: % endv-[3,left end slope] imposes the 
94: h left end slope value and makes 

95: % c(n-1) zero 

96: % endv-[4,right end slope] imposes the 
97: % right end slope value and makes 
"A c(2) zero 

99: % endv-5 defines a periodic spline by 
oo: % making y,y’,y" match at both ends 


. if nargin<5 | isempty(endv), endv=1; end 
s n=length(xd); sx-size(x); x-x(:); X-x-xd(1); 


s if nargin<6, c-spcof(xd,yd,endv); end 
: C=c (1:n); si2c(n*1); mi=c(n+2); X-x-xd(1); 


; if id==0 % x) 
; vzyd (1) *si*X*m1/2*X.*X*... 


powermat (x,xd,3)*C/6; 


. elseif id==1 | y? (x) 


v-sitmi*X*powermat(x,xd,2)*C/2; 


. elseif id--2 % y’’ (x) 
; v=mit+tpowermat (x,xd,1)*C; 


else ^ integral(y(t)*dt, t=xd(1). 


; vzyd (1) *X*s1/2*X .*X*m1/6*X.^3*... 
: powermat (x ,xd,4) *C/24; 

. end 

. v=reshape(v,sx) ; 


: function c-spcof(x,y,endv) 


: 4 c=spcof (x,y, endv) 
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.X) 


. 4 This function determines spline interpolation 
: 4 coefficients consisting of the support 
. 4 reactions concatenated with y’ and y’’ at 
; 4 the left end. 


: 4 x,y - data vectors of interplation points. 
aA Denote n as the length of x. 

; ^ endv - vector of data for end conditions 
c4 described in function spterp. 


s 4C - a vector [c(1);...;c(n*2)] where the 


38: h first n components are support 
39: % reactions and the last two are 
c values of y'(x(1)) and y’’(x(1)). 


; if nargin<3, endv-1; end 

;x-x(:); y=y(:); n-length(x); u-x(2:n)-x(1); 
; a=zeros(n+2,n+2); a(1,1:n)=1; 

s a(2:n,:)=[powermat (x(2:n) ,x,3)/6,u,u. *u/2] ; 
; bezeros(n*2,1); b(2:n)=y(2:n)-y(1); 

; if endv(1)== % Force, force condition 


a(nt+1,2)=1; a(n+2,n-1)=1; 


; elseif endv(1)==2 % Slope, slope condition 


b(nt+1)=endv(2); a(n*1,n*1)-1; 
b(n+2)=endv(3); a(n+2,:)=... 


s [((x(a)-x’).^°2)/2,1,x(n)-x(1)]; 


5: elseif endv(1)==3 % Slope, force condition 


b(nt+1)=endv(2); a(n*i,n*1)-1; a(n*2,n-1)-1; 


s elseif endv(1)--4 % Force, slope condition 


a(nt+1,2)=1; b(n+2)=endv(2) ; 
a(n+2,:)=[((x(a)-x?).^°2)/2,1,x(a)-x(1)]; 


ss elseif endv(1)==5 


a(nt+1,1:n)=x(n)-x’; b(n)=0; 
a(nt+2,1:n)=1/2*(x(n)-x’).72; 
a(n+2,n+2)=x(n)-x(1); 


; else 


error(... 
’ Invalid value of endv in function spcof’) 


5 end 
; if endv(1)==1 & n«4, c-pinv(a)*b; 
;; else, c=a\b; end 


: function a-powermat(x,X,p) 
3. ^ a-powermat(x,X,p) 


. 4 This function evaluates various powers of a 
; ^ matrix used in cubic spline interpolation. 


| 4 X,X - arbitrary vectors of length n and N 
ha - an n by M matrix of elements such that 
m a(i,j)-(xG)»XCj)*abs(x()-X(j))^p 
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182: X7X (:); n=length(x); X=X(:)’; N-length(X); 

183: ax (: , ones (1,N)) -X(ones(n,1),:); a=a.*(a>0); 
isa Switch p, case 0, a-sign(a); case 1, return; 
185 Case 2, a-a.*a; case 3; a-a.*a.*a; 

18 case 4, a-a.*a; a-a.*a; otherwise, a-a.^p; end 


4.2.3 Generalizing the Intrinsic Spline Function in MATLAB 


The intrinsic MATLAB function spline employs an auxiliary function unmk to 
create the piecewise polynomial definitions defining the spline. The polynomials 
can be differentiated or integrated, and then functions mkpp and ppval can be used 
to evaluate results. We have employed the ideas from those routines to develop func- 
tions splineg and splincof extending the minimal spline capabilities of MATLAB. 
The function splincof(xd,yd,endc) computes arrays b and c usable by mkpp and pp- 
val. The data vector endc defines the first four types of end conditions discussed 
above. The function splineg(xd,yd,x,deriv,endc,b,c) handles the same kind of data 
as function spterp. Sometimes arrays b and c may have been created from a previ- 
ous call to splineg or spterp. Whenever these are passed through the call list, they 
are used by splineg without recomputation. Readers wanting more details on spline 
concepts should consult de Boor's book [7]. 

Two examples illustrating spline interpolation are presented next. In the first pro- 
gram called, sinetrp, a series of equally spaced points between 0 and 27 is used to 
approximate y = sin(x) which satisfies 


y'(z) = cos(x) , y" (x) = — sin(x) , ra y(x)dx = 1 — cos(x). 


The approximations for the function, derivatives, and the integral are evaluated using 
splineg. Results shown in Figure 4.1 are quite satisfactory, except for points outside 
the data interval [0, 27]. 
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Spline Differentiation and Integration of sin(x) 
2 T +++ 
+ Tg 


function values 


-1.5 1 f l fi 1 
-0.5 0 0.5 1 1.5 2 2.5 


x/ pi 


Figure 4.1: Spline Differentiation and Integration of sin(x) 
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Example: Spline Interpolation Applied to Sin(x) 


Program sinetrp 


; function sinetrp 


^ Example: sinetrp 


^ This example illustrates cubic spline 
^ approximation of sin(x), its first two 
^ derivatives, and its integral. 


^ User m functions required: 
% splineg, splincof 


: ^ Create data points on the spline curve 
. xd-linspace(0,2*pi,21); yd=sin(xd) ; 


; % Evaluate function values at a dense 
s 4 set of points 

; x=linspace(-pi/2,5/2*pi,61) ; 

. Ly, b, c]=splineg (xd, yd,x,0); 

: yp=splineg(xd,yd,x,1,[],b,c); 

: ypp=splineg(xd,yd,x,2,[],b,c); 

. yint=splineg(xd,yd,x,3,[],b,c); 


2: ^ Plot results 
23 Z=X/pi; zd=xd/pi; 
pLplotiz.w;^k- 2d.yd ko" zm wp. kr? sake 


zoypp,. k-.".zyinb,"kt'): 


; title([’Spline Differentiation and ’, 


Integration of sin(x)’]); 


2: Xlabel(’x / pi’); ylabel(’function values’); 
2: legend(’y=sin(x)’,’data’,’y’’(x)’,’y’??’?(x)’, 


Ning y(x) dx’,1); prid on 


. figure(gcf); pause; 
. ^ print -deps sinetrp 


3: function [val,b,c]=splineg(xd,yd,x,deriv,endc,b,c) 


3: ^ [val,b,c]-splineg(xd,yd,x,deriv,endc,b,c) 


0 


o 
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For a cubic spline curve through data points 
xd,yd, this function evaluates y(x), y’(x), 
y’’(x), or integral(y(x)*dx, xd(1) to x(j) ) 
for j-1:length(x).The coefficients needed to 
evaluate the spline are also computed. 


xd,yd 
X 


deriv 


endc 


b,c 


val 


: switch deriv 


data vectors defining the cubic 
Spline curve 
vector of points where curve 
properties are computed. 
denoting the spline curve as y(x), 
deriv-0 gives a vector for y(x) 
deriv-1 gives a vector for y'(x) 
deriv-2 gives a vector for y’’ (x) 
deriv-3 gives a vector of values 
for integral(y(z)*dz) from xd(1) 
to x(j) for j=1:length(x) 
endc-1 makes y’’’(x) continuous at 
xd(2) and xd(end-1). 
endc-[2,1eft slope,right slope] 
imposes slope values at both ends. 
endc-[3,left slope] imposes the left 
end slope and makes the discontinuity 
of y??? at xd(end-1) small. 
endc-[4,right slope] imposes the right 
end slope and makes the discontinuity 
of y??? at xd(2) small. 
coefficients needed to perform the 
Spline interpolation. If these are not 
given, function unmkpp is called to 
generate them. 
values y GO ,y' GO,y?' GO or 
integral(y(z)dz, z-xd(1)..x) for 
deriv-0,1,2, or 3, respectively. 


. if nargin<5 | isempty(endc), endc-1; end 
; if nargin<7, 
. n=length(xd); [N,M]=size(c) ; 


[b,c]=splincof(xd,yd,endc); end 


; case 0 % Function value 


val=ppval (mkpp(b,c) ,x); 


; case 1 % First derivative 
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86: 


CQ2[93*e(:,1),2*6(152) ye G3) 3 
val=ppval (mkpp(b,C) ,x); 


; case 2 4 Second derivative 


C- [6*c(:,1),2*c(:,2)1; 
val=ppval (mkpp(b,C) ,x); 


. case 3 % Integral values from xd(1) to x 


k=M:-1:1; 

C=[c./k(ones(N,1),:),zeros(N,1)]; 
dx-xd(2:n)-xd(1:n-1); s=zeros(n-2,1); 

for j=1:n-2, s(j)=polyval(C(j,:),dx(j)); end 
C(:,5)=L[0;cumsum(s)]; val-ppval(mkpp(b,C),x); 


; end 


: function [b,c]=splincof (xd, yd, endc) 
» ^ [b,c]-splincof (xd, yd,endc) 
; 4 This function determines coefficients for 


. 4 cubic spline interpolation allowing four 
. 4 different types of end conditions. 


^ xd,yd - data vectors for the interpolation 


^ endc - endc-1 makes y’’’(x) continuous at 

% xd(2) and xd(end-1). 

^ endc-[2,1left slope,right slope] 

Js imposes slope values at both ends. 

y^ endc-[3,left slope] imposes the left 

Js end slope and makes the discontinuity 

% of y??? at xd(end-1) small. 
A endc-[4,right slope] imposes the right 
cH end slope and makes the discontinuity 
A of y??? at xd(2) small. 


; if nargin<3, endc=1; end; 
. type=endc(1); xd=xd(:); yd=yd(:); 


: Switch type 


: case 1 


^ y??'(x) continuous at the xd(2) and xd(end-1) 
[b,c]=unmkpp(spline(xd,yd)); 
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133 case 2 
33: — ^ Slope given at both ends 
134:  [b,c] -unmkpp(spline(xd, [endc (2) ; yàá; endc(3)1)) ; 


136: Case 3 

37; ^4 Slope at left end given. Compute right end 
138: — ^ Slope. 

1397 — [b, c] =unmkpp(spline(xd,yd)) ; 

vo:  c=[3*c(:,1),2xc(:,2),c(:,3)]; 

110. Sright-ppval(mkpp(b,c),xd(enqd)); 

12: [b, c] *unmkpp (spline(xd, [endc(2) ; yd; sright])) ; 


144: case 4 

15 % Slope at right end known. Compute left end 
16: ^ Slope. 

14  [b,c]=unmkpp(spline(xd,yd)); 

185 C=[3*c(:,1),2*c(:,2),c(:,3)]; 

us: Sleft-ppval(mkpp(b,c),xd(1)); 

150: [b,c]=unmkpp(spline(xd, [sleft;yd;endc(2)])); 


152; end 


4.2.4 Example: A Spline Curve with Several Parts and Corners 


The final spline example illustrates interpolation of a two-dimensional curve where 
y cannot be expressed as a single valued function of x. Then we introduce a param- 
eter tj having its value equal to the index j for each (x;, yj) used. Interpolating 
x(t) and y(t) as continuous functions of ¢ produces a smooth curve through the data. 
Function matlbdat creates data points to define the curve and calls function spery2d 
to compute points on a general plane curve. We also introduce the idea of “corner 
points’ where slope discontinuity allows the curve to make sharp turns needed to 
describe letters such as the ‘t’ in MATLAB. Each curve segment between successive 
pairs of corner points is parameterized using function spline. Results in Figure 4.2 
show clearly that spline interpolation can represent a complicated curve. The re- 
lated code appears after the figure. The same kind of parameterization used for two 
dimensions also works well for three dimensional curves. 


Example: Spline Curve Drawing the Word MATLAB 


Program matlbdat 


i; function matlbdat 


© 2003 by CRC Press LLC 


A Spline Curve Drawing the Word MATLAB 


4 
Figure 4.2: Spline Curve Drawing the Word MATLAB 
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2 ^ Example: matlbdat 

MU 

4 ^ This example illustrates the use of splines 
s 4 to draw the word MATLAB. 
6 
T 
8 


; ^ User m functions required: spcurv2d 


1: X=X?; x-x(:); yHy’; y=y(:); 

2: ncrnr-[17 22 26 27 28 29 30 31 36 42 47 52]; 
a: clf; [xs,ys]-curv2d(x,y, 10, ncrnr); 

a plot (xs,ys, k-,x,y, k*^), axis off; 

23: title(’A Spline Curve Drawing the Word MATLAB’); 
2: figure(gcf) ; 

25: ^ print -deps matlbdat 


2: function [X,Y]-spcrv2d(xd,yd,nseg,icrnr) 
3: ^ L[X,Y]=spcrv2d(xd,yd,nseg,icrnr) 


3: ^ This function computes points (X,Y) on a 
3: ^ Spline curve through (xd,yd) allowing slope 
as » discontinuities at points with corner 

3: 4 indices in icrnr. nseg plot segments are 
3: 4 used between each successive pair of points. 


3: if nargin«4, icrnr=[]; end 

4: if nargin<3, nseg-10; end 

a: Zd-xd(:)*i*yd(:); n=length(zd) ; 

43 N=[1;sort(icrnr(:));n]; Z=zd(1); 

4: if N(1)--N(2); N(1)-[]; end 

44 if N(end)--N(end-1); N(end)=[]; end 

as for k-1:length(N)-1 

a  zk=zd(N(k):N(k+1)); sk-length(zk)-1; 
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i;  S=linspace(0,sk,1+sk*nseg)’; 

is — Zk-spline(0:sk,zk,s); Z-[Z;Zk(2:end)]; 
a9: end 

so: X=real(Z); Y=imag(Z) ; 


E 


4.3 Numerical Differentiation Using Finite Differences 


Differential equation problems are sometimes solved using difference formulas to 
approximate the derivatives in terms of function values at adjacent points. Deriving 
difference formulas by hand can be tedious, particularly when unequal point spacing 
is used. For this reason, we develop a numerical procedure to construct formulas 
of arbitrary order and arbitrary truncation error. Of course, as the desired order 
of derivative and the order of truncation error increases, more points are needed to 
interpolate the derivative. We will show below that approximating a derivative of 
order k with a truncation error of order h™ generally requires (k + m) points unless 
symmetric central differences are used. Consider the Taylor series expansion 


F(x + ah) = »s FO (z) c ay 


k! 
k=0 


where F(¥) (x) means the k’th derivative of F(x). This relation expresses values of 
F as linear combinations of the function derivatives at z. Conversely, the derivative 
values can be cast in terms of function values by solving a system of simultaneous 
equations. Let us take a series of points defined by 


%=x¢rtha,,l<i<n 


where A is a fixed step-size and a, are arbitrary parameters. Separating some leading 
terms in the series expansion gives 


-E [nemo] +S ferme] + 


k=0 
"uas 
B MM |n (£0 piens ) t£ O(h*2), 1«« n. 
(n 4- 1)! +1)! 
It is helpful to use the following notation: 
a* — acolumn vector with component 2 being equal to œ} 
f - acolumn vector with component ? being F(x.) 
fp - acolumn vector with component z being h’ F® (x) 
A - [o9,o!,...,o?-1], a square matrix with columns which 


are powers of a. 
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Then the Taylor series expressed in matrix form is 


An po (x) n Art! po (a) n-41 n+2 


Solving this system for the derivative matrix fp yields 


h” FO) (x2) 


hn po) T 
fp-Af- a A^ lo^ — ( ) 


—1,.,n41 n+2 
"ANREDE - A cw + DOTT. 


In the last equation we have retained the first two remainder terms in explicit form 
to allow the magnitudes of these terms to be examined. Row k + 1 of the previous 
equation implies 


hn-k 
F9 (£) = h- (A7 f) 1 — ——F (2) (A710 eg — 
n: 
hrkt! 


m O e ees FOC, 
Consequently, the rows of A ^! provide coefficients in formulas to interpolate deriva- 
tives. For a particular number of interpolation points, say N, the highest derivative 
approximated will be FY —U (x) and the truncation error will normally be of or- 
der ht. Conversely, if we need to compute a derivative formula of order k with the 
truncation error being m, then it is necessary to use a number of points such that 
n — k = m; therefore n = m + k. For the case where interpolation points are sym- 
metrically placed around the point where derivatives are desired, one higher power 
of accuracy order is achieved than might be expected. We can show, for example, 
that 


d*F(z) 1 
Cue Rs 
AF (x +h) + F(a + 2h)) + O(h?) 


F(a — 2h) —4F(x2—h)+6F(2) — 


because the truncation error term associated with h! is found to be zero. At the 
same time, we can show that a forward difference formula for f " (x) employing 
equidistant point spacing is 


d? F(x) 1 


d3 OAS ( 
7F (x2 + 3h) —1.5F (2+ 4h)) + O(h?). 


—2.5F (x) — 9F (x + h) + A2F(x + 2h) + 


Although the last two formulas contain arithmetically simple interpolation coeffi- 
cients, due to equal point spacing, the method is certainly not restricted to equal 
spacing. The following program contains the function derivtrp which implements 
the ideas just developed. Since the program contains documentation that is output 
when it is executed, no additional example problem is included. 
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4.3.1 Example: Program to Derive Difference Formulas 
Output from Example 


finitdif; 


COMPUTING F(x,k), THE K'TH DERIVATIVE OF 
f(x), BY FINITE DIFFERENCE APPROXIMATION 


2 


Input the derivative order (give 0 to stop, 
or ? for an explanation) » ? 


Let f(x) have its k'th derivative denoted by 
F(k,x). The finite difference formula for a 
stepsize h is given by: 


F(x,k)-Sum(c(j)*f(x-«a(j)*h), j=l:n)/h*k +... 
TruncationError 


with m=n-k being the order of truncation 
error which decreases like h^m according to: 


TruncationError--(h^m)*(e(1)*F(x,n)-*... 
e(2) *F(x,n+1) *h«e(3) *F(x,n+2) *h^2«0(h^3)) 


Input the derivative order (give 0 to stop, 
or ? for an explanation) > 4 


Give the required truncation order > 1 


To define interpolation points X(j)=x+th*a(j), 
input at least 5 components for vector a. 


Components of a > -2,-1,0,1,2 
The formula for a derivative of order 4 is: 
F(x,k)=sum(c(j) *F(X(j3),j=1:n) /h*4+order (h^1) 
where c is given by: 

1.0000 -4.0000 6.0000 -4.0000 1.0000 
and the truncation error coefficients are: 


-0.0000 0.1667 -0.0000 0.0125 


Input the derivative order (give 0 to stop, 
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or ? for an explanation) » 3 


Give the required truncation order » 2 


To define interpolation points X(j)=xth*a(j), 
input at least 5 components for vector a. 


Components of a > 0,1,2,3,4 


The formula for a derivative of order 3 is: 
F(x,k)=sum(c(j) *F(X(j3),j=1:n) /h*3+order (h^2) 
where c is given by: 


-2.5000 9.0000 -12.0000 7.0000 -1.5000 


and the truncation error coefficients are: 


-1.7500 -2.5000 -2.1417 -1.3750 


Input the derivative order (give 0 to stop, 


or ? for an explanation) » O0 


Program finitdif 


a 


Qo. anto IQ OE ruis ror at es 


; function [c,e,m,crat,k,a]=finitdif (k,a) 


^ [c,e,m,crat,k,al-finitdif (k,a) 


^ This program computes finite difference formulas of 
^ general order. For explanation of the input and 

^ output parameters, see the following function 

^ findifco. When the program is executed without input 
^ arguments, then input is read interactively. 


. if nargin--0, disp(’ ?) % Use interactive input 


disp(C COMPUTING F(x,k), THE K’’TH DERIVATIVE OF’) 
disp(’f(x), BY FINITE DIFFERENCE APPROXIMATION’) 
disp(’ ?) 
while 1 
disp( Input the derivative order (give 0 to stop,’) 
K=input(’or ? for an explanation) > ’,’s’); 
k-str2num(K); 
if strcmp(K,"?) | strcmp(K,?0?); disp(’ ’),return 
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20: elseif strcmp(K,’?’) 


21: disp(’ ?), disp(... 

22: ’Let f(x) have its k’’th derivative denoted by’) 
23: disp(... 

24: CIF(k,x). The finite difference formula for a’) 
25: disp(’stepsize h is given by:’), disp? ?) 

26: disp(... 

27: ?F(x,k)=Sum(c(j)*f(xt+a(j)*h), je1:n)/h^k *...?) 
28: disp(’ TruncationError?), disp? ?) 

29: disp(’with m=n-k being the order of truncation’) 
30: dispi... 

31: 'error which decreases like h^m according to:’) 
32: disp(’ ?) 

33: disp(’ TruncationError-- (h^m)*(e(1)*F(x,n)*...?) 
34: dispi... 

35: 'e(2) *F(x,n*1) *hte (3) *F(x,n*2)*h^2*0(h^3))?) 

36: disp(’ ?) 

37: else 

38: disp(^ ^) 

39: m=input(’Give the required truncation order > ?); 
40: n-m*k; N-num2str(n); disp(’ ’), disp(... 

ai: ’To define interpolation points X(j)-x*h*a(j),?) 
42: disp([’input at least ’,N,... 

43: > components for vector a.’]) 

44: disp(’ ?), aa-input(?Components of a > ’,’s’); 
45: a=eval([’[’,aa,’]’]); n=length(a); m-n-k; 

46: [c,e,m,crat]-findifco(k,a); disp? ’), disp(... 
47: [The formula for a derivative of order ’,... 
48: K,’ is:?’]) 

49: disp([’F(x,k)=sum(c(j)*F(X(j),j=1:n)/h^?’,K,... 
50: >+order(h*’ ,num2str(m),?)?]) 

51: disp(’where c is given by:’) 

52: disp(’ ’), disp(c), disp(’ ?) 

53: disp(... 

54: ^and the truncation error coefficients are:’) 
55: disp(’ ?), disp(e) 

56: end 

57: end 

ss else 

59: [c,e,m,crat]-findifco(k,a); 

es end 

61: 

62: (PSSSS SS SSS SSS SS SSS SSS SSS SSS SS SSS SSS SSS SSS SSS SSS SSS 


64: function [c,e,m,crat]=findifco(k,a) 
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: 4 [c,e,m,crat]=findifco(k,a) 


. ^ This function approximates the k’th derivative 


. ^ of a function using function values at n 
. ^ interpolation points. Let f(x) be a general 
. ^ function having its k’th derivative denoted 


. 4 by F(x,k). The finite difference approximation 
. ^ for the k’th derivative employing a stepsize h 


. ^ is given by: 


s ^ F(x,k)=Sum(c(j)*f (xta(j)*h), j=1:n)/h^k + 


TruncationError 


. ^ with m-n-k being the order of truncation 
; ^4 error which decreases like h^m and 

; 4 TruncationError-(h^m)*(e(1)*F(x,n)*... 
4 e(2)*F (x,n+1) *ht+e (3) *F(x,n*2) *h^2*0(h^3)) 


(^a 


3 4 crat 


a vector of length n defining the 
interpolation points x*a(j)*h where 
X is an arbitrary parameter point 
order of derivative evaluated at x 
the weighting coeffients in the 
difference formula above. c(j) is 
the multiplier for value f(x*a(j)*h) 
error component vector in the above 
difference formula 

order of truncation order in the 
formula. The relation m-n-k applies. 
a matrix of integers such that c is 
approximated by crat(1,:)./crat(2,:) 


. a=a(:); n-length(a); m-n-k; mat-ones(n,n*4); 
. for j=2:nt+4; mat(:,j)=a/(j-1).*mat(:,j-1); end 
. A=pinv(mat(:,1:n)); ec--A*mat(:,n*i:n*4); 
;: C=A(kt+1,:); e=-ec(kt1,:); 


: [ctop, cbot]=rat(c,1e-8); crat-[ctop(:)';cbot(:)?] 
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Chapter 5 


Gauss Integration with Geometric Property 
Applications 


5.4 Fundamental Concepts and Intrinsic Integration Tools 
in MATLAB 


Numerical integration methods approximate a definite integral by evaluating the 
integrand at several points and taking a weighted combination of those integrand 
values. The weight factors can be obtained by interpolating the integrand at selected 
points and integrating the interpolating function exactly. For example, the Newton- 
Cotes formulas result from polynomial interpolation through equidistant base points. 
This chapter discusses concepts of numerical integration needed in applications. 

Let us assume that an integral over limits a to b is to be evaluated. We can write 


b n 
J (ds - Y wi) e E 


where E represents the error due to replacement of the integral by a finite sum. This 
is called an n-point quadrature formula. The points z, where the integrand is evalu- 
ated are the base points and the constants W, are the weight factors. Most integration 
formulas depend on approximating the integrand by a polynomial. Consequently, 
they give exact results when the integrand is a polynomial of sufficiently low order. 
Different choices of x, and W, will be discussed below. 

It is helpful to express an integral over general limits in terms of some fixed limits, 
say —1 to 1. This is accomplished by introducing a linear change of variables 


r-—a-c t. 


Requiring that x = a corresponds to t = —1 and that x = b corresponds to t = 1 
gives a = (a+ b)/2 and 8 = (b — a)/2, so that one obtains 


j f(x)dz = 55 — a) "E E " d P a und 


where F(t) = f[(a + 0)/2 + (b — a)t/2](b — a)/2. Thus, the dependence of the 
integral on the integration limits can be represented parametrically by modifying the 
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141 


integrand. Consequently, if an integration formula is known for limits —1 to 1, we 
can write 


b n 
| f(z)dz = BV W, f(a + br) + E. 
9 al 


The idea of shifting integration limits can be exploited further by dividing the interval 
a to b into several parts and using the same numerical integration formula to evaluate 
the contribution from each interval. Employing m intervals of length £ = (b — a)/m, 


we get 
a4-36 


[ f(x)dx = > Varn f(a)de. 


Each of the integrals in the summation can be transformed to have limits —1 to 1 by 
taking 
xz = a; + t 


with 
aj =a + (j — 1/2)£ and 8 = £/2. 


Therefore we obtain the identity 


b m 1 
J f(x)dz = »5 sl f(a, + 8t)dt. 
a J=1 1 


Applying the same n-point quadrature formula in each of m equal intervals gives 
what is termed a composite formula 


m n 


b 
" f(x)dx = 23 Y  W.f(n; + B24) + E. 


j—1 e= 


By interchanging the summation order in the previous equation we get 
b £ n m 
[ 1692: - 535 Slay + Bay) +B. 
€ =f j—1 


Let us now turn to certain choices of weight factors and base points. Two of the most 
widely used methods approximate the integrand as either piecewise linear or piece- 
wise cubic. Approximating the integrand by a straight line through the integrand end 
points gives the following formula 


[fes = fCo + F0) +B. 


A much more accurate formula results by using a cubic approximation matching the 
integrand at x = —1, 0, 1. Let us write 


f(z) = e + coz + eax? + car’. 
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Then 
i 2 
J f(x)dx = 2c, + ze. 
-1 3 


Evidently the linear and cubic terms do not influence the integral value. Also, cı = 
f (0) and f(—1) + f(1) = 2 c1 + 2 c3 so that 


[fes = 5-1) er) + FO) +E 


The error E in this formula is zero when the integrand is any polynomial of order 3 
or lower. Expressed in terms of more general limits, this result is 


p — a a 
[ res = 939 [n 44) + 10) +8 


which is known as Simpson’s rule. 

Analyzing the integration error for a particular choice of integrand and quadrature 
formula can be complex. In practice, the usual procedure taken is to apply a com- 
posite formula with m chosen large enough so the integration error is expected to 
be negligibly small. The value for m is then increased until no further significant 
change in the integral approximation results. Although this procedure involves some 
risk of error, adequate results can be obtained in most practical situations. 

In the subsequent discussions the integration error that results by replacing an 
integral by a weighted sum of integrand values will be neglected. It must nevertheless 
be kept in mind that this error depends on the base points, weight factors, and the 
particular integrand. Most importantly, the error typically decreases as the number 
of function values is increased. 

It is convenient to summarize the composite formulas obtained by employing a 
piecewise linear or piecewise cubic integrand approximation. Using m intervals and 
letting £ = (b — a)/m, it is easy to obtain the composite trapezoidal formula which 


i fie TEPHOIZON S 


3 dran] 
j=l 

This formula assumes that the integrand is satisfactorily approximated by piecewise 

linear functions. The MATLAB function trapz implements the trapezoidal rule. 

A similar but much more accurate result is obtained for the composite integration 

formula based on cubic approximation. For this case, taking m intervals implies 

2m + 1 function evaluations. If we let g = (b — a)/(2m) and h = 2g, then 


fı = f(z,) where zx, =a+g), 7=0,1,2,...,2m, 


with f(xo) = f(a) and f(£2m) = f(b). Combining results for all intervals gives 
b 
J fa =4 
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m-1 


f(a) +4 fi + f(b 22s (4fai41 + 2f2) 


This formula, known as the composite Simpson rule, is one of the most commonly 
used numerical integration methods. The following function simpson works for an 
analytically defined function or a function defined by spline interpolating through 


discrete data. 


Function for Composite Simpson Rule 


. function area-simpson(funcname,a,b,n,varargin) 


Qo- xb. me (gv oc ee der ces 
= 


^, funcname - 


e 
e 
ex 


19: h varargin - 


a: 4 area - 


^ area-simpson(funcname,a,b,n,varargin) 


Simpson’s rule integration for a general function 
^ defined analytically or by a data array 


either the name of a function valid 

for a vector argument x, or an array 
having two columns with x data in the 
first column and y data in the second 
column. If array data is given, then 
the function is determined by piecewise 
cubic spline interpolation. 

limits of integration 

odd number of function evaluations. If 
n is given as even, then the next 
higher odd integer is used. 

variable number of arguments passed 

for use in funcname 

value of the integral when the integrand 
is approximated as a piecewise cubic 
function 


2: 4 User functions called: function funcname in the 


2: if 2*fix(n/2)= 


argument list 


=n; n=n+1; end; n=max(n,3); 


2: X=linspace(a,b,n) ; 
30: if isstr(funcname) 
3:  y=feval(funcname,x,varargin{:}); 


32: else 


a» — y-spline(funcname(:,1),funcname(:,2),x); 


34: end 


3: area=(b-a)/(n-1)/3*( y(1)-y(n)+... 
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36: 4*sum(y (2:2:n)) *2*sum(y (3:2:n))) ; 


An important goal in numerical integration is to achieve accurate results with only 
a few function evaluations. It was shown for Simpson's rule that three function 
evaluations are enough to exactly integrate a cubic polynomial. By choosing the 
base point locations properly, a much higher accuracy can be achieved for a given 
number of function evaluations than would be obtained by using evenly spaced base 
points. Results from orthogonal function theory lead to the following conclusions. If 
the base points are located at the zeros of the Legendre polynomials (all these zeros 
are between —1 and 1) and the weight factors are computed as certain functions of 
the base points, then the formula 


[fe - we) 


is exact for a polynomial integrand of degree 2n — 1. Although the theory proving 
this property is not elementary, the final results are quite simple. The base points 
and weight factors for a particular order can be computed once and used repeatedly. 
Formulas that use the Legendre polynomial roots as base points are called Gauss 
quadrature formulas. In a typical application, Gauss integration gives much more 
accurate results than Simpson's rule for an equivalent number of function evalua- 
tions. Since it is equally easy to use, the Gauss formula is preferable to Simpson's 
rule. 

MATLAB also has three functions quad and quad8 and quad] to numerically 
integrate by adaptive methods. These functions repeatedly modify approximations 
for an integral until the estimated error becomes smaller than a specified tolerance. 
In the current text, the function quadl is preferable over the other two functions, 
and quadl is always used when an adaptive quadrature function is needed. Readers 
should study carefully the system documentation for quadl to understand the various 
combinations of call list parameters allowed. 


5.2 Concepts of Gauss Integration 


This section summarizes properties of Gauss integration which, for the same num- 
ber of function evaluations, are typically much more accurate than comparable Newton- 
Cotes formulas. It can be shown for Gauss integration [20] that 


J FG) de = Y wf) + EU) 
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Integration Error = C*diff( f(x), x, 2*n ) for some x in [-1,1] 
10 T T T T T 


Error Coefficient C 
3 
L 


L 1 1 fi 1 
0 10 20 30 40 50 60 70 
Integration Order n 


Figure 5.1: Error Coefficient versus Number of Points for Gauss Integration 


where the integration error term is 


92n—1 n!)4 " 
Bum pale <1. 


The base points in the Gauss formula of order n are the roots of the Legendre poly- 
nomial of order n and the weight factors are expressible concisely in terms of the 
base points. The quadrature error term for an n-point formula involves the integrand 
derivative of order 2n, which implies a zero error for any polynomial of order 2n — 1 
or lower. The coefficient of the derivative term in E decreases very rapidly with 
increasing n, as can be seen in Figure 5.1. 

For example, n = 10 gives a coefficient of 2.03 x 10 ?!. Thus, a function having 
well behaved high order derivatives can be integrated accurately with a formula of 
fairly low order. The base points x, are all distinct, lie between —1 and 1, and are 
the eigenvalues of a symmetric tridiagonal matrix [26] which can be analyzed very 
rapidly with the function eigen. Furthermore, the weight factors are simply twice 
the squares of the first components of the orthonormalized eigenvectors. Because 
eigen returns orthonormalized eigenvectors for symmetric matrices, only lines 58-60 
in function gequad given below are needed to compute the base points and weight 
factors. 
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Function for Composite Gauss Integration 


35: 


Q9. i-o o So e ERU de 


. function [val,bp,wf]=gcquad(func,xlow,... 


xhigh,nquad,mparts,varargin) 


[val,bp,wf]=gcquad(func,xlow,... 
xhigh,nquad,mparts,varargin) 


This function integrates a general function using 
a composite Gauss formula of arbitrary order. The 
integral value is returned along with base points 
and weight factors obtained by an eigenvalue based 
method. The integration interval is divided into 
mparts subintervals of equal length and integration 
over each part is performed with a Gauss formula 
making nquad function evaluations. Results are 
exact for polynomials of degree up to 2*nquad-1. 
func - name of a function to be integrated 
having an argument list of the form 
func(x,pi1,p2,...) where any auxiliary 
parameters pi,p2,.. are passed through 
variable varargin. Use [ ] for the 
function name if only the base points 
and weight factors are needed. 


xlow,xhigh  - integration limits 

nquad - order of Gauss formula chosen 

mparts - number of subintervals selected in 
the composite integration 

varargin - variable length parameter used to 


pass additional arguments needed in 
the integrand func 
val - numerical value of the integral 
bp,wf - vectors containing base points and 
weight factors in the composite 
integral formula 


A typical calculation such as: 

Fun-inline(? (sin(w*t).^2).*exp(c*t)? ,? t? ,? wv? ,? c?); 
A=0; B-12; nquad-21; mparts-10; w=10; c=8; 
[value,pcterr]-integrate(Fun,A,B,nquad,mparts,w,c); 
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. ^ gives value = 1.935685556078172e+040 which is 

. ^ accurate within an error of 1.9e-13 percent. 

2 

: ^ User m functions called: the function name passed 
A in the argument list 


if isempty(nquad), nquad=10; end 
if isempty(mparts), mparts-1; end 


. ^ Compute base points and weight factors 
. ^ for the single interval [-1,1]. (Ref: 
. ^ ?'Methods of Numerical Integration’ by 


^ P. Davis and P. Rabinowitz, page 93) 


; uz (1:nquad-1) ./sqrt((2*(1:nquad-1)).^2-1); 
. [vc, bp] =eig(diag(u,-1)+diag(u,1)); 
. [bp,k]=sort(diag(bp)); wf-2*vc(1,k)?.^2; 


. ^ Modify the base points and weight factors 

. 4 to apply for a composite interval 

. d=(xhigh-xlow)/mparts;  dí-d/2; 

. dbp=di*bp(:); dwf-di*wf(:); dr=d*(1:mparts) ; 

. Cbp=dbp(:,ones(1,mparts))+ ... 

. dr (ones (nquad,1),:)+(xlow-d1) ; 

. cwf=dwf(:,ones(1,mparts)); wf=cwf(:); bp=cbp(:); 


: ^ Compute the integral 
. if isempty (func) 


val=[]; 


;: else 


f=feval(func,bp,varargin{:}); val=wf’*f(:); 


; end 


E: SeSe 


5.3 Comparing Results from Gauss Integration and 


Function QUADL 


A program was written to compare the performance of the Gauss quadrature func- 


tion gequad and the numerical integrator quadl provided in MATLAB. Quadl is a 
robust adaptive integration routine which efficiently handles most integrands. It can 
even deal with special integrals having singularities, like log(x) or 1/ sqrt(a) at the 
origin. Integrating these functions from zero to one yields correct answers although 
messages occur warning about integrand singularities at the origin. No capabilities 
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are provided in quad] to directly handle vector integrands (except one component at a 
time), and no options are provided to suppress unwanted warning or error messages. 
In the timing program given below, warning messages from quadl were temporarily 
turned off for the tests. 

Often there are examples involving vector-valued integrands that are to be inte- 
grated many times over fixed integration limits. A typical case is evaluation of coef- 
ficients in Fourier-Bessel series expansions. Then, computing a set of base points and 
weight factors once and using these coefficients repeatedly is helpful. To illustrate 
this kind of situation, let us numerically integrate the vector valued function 


f(x) = [V ; log(z) ; humps(z); exp(10z) cos(1072) ; cos(207x — 20 sin(z2))] 


from x = 0 to x = 1. Several components of this function are hard to integrate 
numerically because 4/z has infinite slope at x = 0, log(x) is singular at x = 0, 
the fourth component is highly oscillatory with large magnitude variations, and the 
last component is highly oscillatory (integrating the last component gives the value 
of the integer order Bessel function J29(20)). 

The following function quadtest uses functions quadl and gcquad to integrate 
f(x) from x = 0 to x = 1. The Gauss integration employs a formula of order 
100 with one subinterval, so integrands are effectively approximated by polynomials 
of order 199. To achieve accurate timing, it was necessary to evaluate the integrals 
repeatedly until a chosen number of seconds elapsed. Then average times were com- 
puted. The program output shows that gequad was more accurate than quadl for all 
cases except for log(x) involving a singular integrand. Computations times shown 
for each component of f(x) are the same when gequad was used because the inte- 
gration was done for all components at once, and then results were divided by five. 
The total time used by quadl was about 3.5 times as large as the time for qequad. 
We are not arguing that these results show gequad is superior to quadl. However, it 
does imply that Gauss integration can be attractive in some instances. The geometry 
problems in the remainder of this chapter include boundary curves defined by cu- 
bic splines. Then, using Gauss integration of sufficiently high order produces exact 
results for the desired geometrical properties. 


Output from Program quadtest 


»» quadtest(10); 
PRESS RETURN TO BEGIN COMPUTATION » ? 


INTEGRATION TEST COMPARING FUNCTIONS QUADL AND GCQUAD 
The functions being integrated are: 

sqrt (x) 

log (x) 

humps (x) 

exp(10*x).*cos(10*pi*x) 

cos (20*pi*x-20*sin(pi*x)) 
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(Total time using quadl)/(Total time using 


L2 PK O0 


Results Using Function quadl 


Integral 
values 


.6667e-001 
.0000e-000 
.9858e«001 
.0263e«002 
L.6475e-001 


U1-mP hPX€ Nv 


Function 


evaluations 
.8000e+001 
.2900e+002 
.9800e+002 
.0800e+002 
.2800e+002 


zl. 
2. 


6 
2 
zu 


Percent 
error 
9813e-004 
6064e-005 


.2164e-010 
.4425e-013 
.0627e-008 


Computation 


OW ANN ON 


Results Using Function gcquad 


Integral 


values 


.6667e-001 
.9994e-001 
.9858e«001 
.0263e«002 
.6475e-001 


equals 3.5395 


>> 


Function Percent 
evaluations error 
1.0000e+002 1.5215e-005 
1.0000e+002 -6.2513e-003 
1.0000e+002 8.8818e-014 
1.0000e+002 -4.1078e-013 
1.0000e+002 -1.5543e-013 


Program Comparing Numerical Integration Methods 


£9. S00! c Qu. QUE uc be NS dec 


ÍÓ Oo 


m 
N 


13: 


function [L,G,names]=quadtest (secs) 


% 
h 
h 
h 
hh 
% 
hs 
hh 
h 
h 
h 
hh 
h 
h 
h 
h 
% 


[L,G,names]=quadtest (secs) 


This program compares the accuracy and 


seconds 

.9720e-003 
.1071e-002 
.1162e-002 
.8660e-002 
.1370e-002 


Computation 


MO O O oO Wo 


seconds 


.5628e-003 
.5628e-003 
.5628e-003 
.5628e-003 
.5628e-003 


gcquad) 


computation times for several integrals 
evaluated using quadl and gcquad 


Secs 


- the number of seconds each integration 


is repeated to get accurate timing. The 


default value is 60 seconds. 
- matrices with columns containing 


L,G 


results from quadl and from gcquad. 
The matrices are structured as: 
[IntegralValue,PercentError,... 
FunctionEvaluations,ComputationSeconds] 


names — 


character matrix with rows 


describing the functions 
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X which were integrated 
ao. Y 
: ^ User functions called: ftest, gcquad 


KE 
2: global nvals 
; if nargin--0, secs-60; end 


zs fprintf(’\nPRESS RETURN TO BEGIN COMPUTATION > ?) 


29: pause 


. ^ Summary of the five integrands used 
. hames=strvcat(’sqrt(x)’,’log(x)’,’humps(x)’,... 


'exp(10*x) .*cos(10*pi*x)’,... 
'cos (20*pi*x-20*sin(pi*x))?); 


s fprintf([’\n\nINTEGRATION TEST COMPARING’,... 


^ FUNCTIONS QUADL AND GCQUAD\n’]) 


3: fprintf(’\nThe functions being integrated are:\n’) 
. disp(names) 


: ^ Compute exact values of integrals 
. exact=[2/3; -1; quadl(Ohumps,0,1,1e-12); 


real ((exp(10+10*pi*i)-1)/(10+10*pi*i)) ; 
besselj(20,20)]; 


s 4 Find time to make a loop and call the clock 
: nmax-5000; nclock=0; t0O=clock; 
; while nclock«nmax 


nclock-nclock*1; tclock-etime(clock,t0); 


; end 
s: tclock=tclock/nclock; 


s: 4 Evaluate each integral individually. Repeat 
5: ^ the integrations for secs seconds to get 
s: ^ accurate timing. Save results in array L. 
ss L=zeros(5,4); tol-1e-6; e=exact; warning off; 
se for k-1:5 


nquad-0; tim-0; t0=clock; 
while tim«secs 
[v nfuns]=quadl(@ftest,0,1,tol,[],k); 
nquad-nquad*1; tim=etime(clock,t0) ; 
end 
tim-tim/nquad-tclock; pe-100*(v/e(k)-1); 
L(k, :)2[v,nfuns,pe,tim]; 
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; end 
s Warning on; 


[dumy , bp, wf] 


; end 
. tbpwf=etime(cl 


: ngquad=0; tim= 
: While tim<secs 


v=ftest (bp,6 


clock; 


=gcquad([],0,1,100,1); 


ock,t0) /nloop; 


s 4 Perform the Gauss integration using a 
. ^ vector integrand. Save results in array G 


0; tO-clock; 


)*wf; 


ngquad-ngquad*1; tim-etime(clock,t0); 


; end 
; tim=tim/ngquad+tbpwf-tclock; pe-100*(v./e-1); 
; G=[v,100*ones ( 


: format short e 
-disp(*. ) 

; disp? 

; disp(... 

d Integral 
: disp(... 

D2 values 
. disp(L) 

; disp? 

s disp(... 

Q2 Integral 
: dispC... 

d values 

. disp(G) 

: format short 
. dispC[? (Total 


> (Total 


. disp([’ equals 


num2str 


. disp? ’) 
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5,1),pe,tim/5*ones(5,1)]; 


: ^ Obtain time to compute base points and weight 
. ^ factors for a Gauss formula of order 100 

: nloop=100; t0= 
: for j-1:nloop 


Results Using Function quadl?) 


Function Percent 


evaluations error 


Computation?) 


seconds!) 


Results Using Function gcquad’ ) 


Function Percent 


evaluations error 


time using quadl)/’,... 
time using gcquad)’]) 


2 
s. 


Computation’) 


seconds’ ) 


(süntEC:rend) /sun(eCt.end)) JT) 


LLC 


20: 
. end 
. if n«6, nvals-nvals-*length(x); 
. else, nvals=nvalst5*length(x); end 


: function y-ftest(x,n) 

: 4 Integrands used by function quadl 
: global nvals 

: Switch n 

. case 1, y=sqrt(x); case 2, y-log(x); 
; case 3, y-humps (x) ; 

; case 4, y=exp(10*x) .*cos(10*pi*x); 

; case 5, y=cos(20*pi*x-20*sin (pi*x) ) ; 
: otherwise 


x-x(:)?; y=[Esqrt (x) ;log(x) ; humps (x) ; 
exp (10*x) .*cos(10*pi*x) ; 
cos (20*pi*x-20*sin(pi*x))]; 


: 4 function [val,bp,wf]=gcquad(func,xlow,... 
de xhigh,nquad,mparts,varargin) 
; 4 See Appendix B 


E 


5.4 Geometrical Properties of Areas and Volumes 


Geometrical properties of areas and volumes are often needed in physical applica- 


tions such as linear stress analysis and rigid body dynamics. For example, consider a 
prismatic structural member having a general cross-section area denoted by A with 
a boundary curve L. Analyzing the stresses occurring when the member undergoes 
axial compression and bi-axial bending leads to integrals of the form 


Crni // x" y" dxdy 
A 


for integers n and m. The six most important cases and the related property names 
are: 


n m Symbol Geometrical Parameter 

0 0 a Area 

1 0 ax First moment of area about the y-axis 

0 1 ay First moment of area about the x-axis 

2 0 axx Moment of inertia about the y-axis 

1 axy Product of inertia with respect to the xy axes 
0 2 ayy Moment of inertia about the x-axis 


The integral Cnm can be evaluated for very general shapes by converting the area 


integral to a line integral over the boundary. Then, approximating the boundary curve 
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parametrically (by spline interpolation, for example) and using numerical integration 
yield the desired values. Green's theorem [119] relates area integrals and line inte- 


grals according to 
If [ea S| dzdy = f Udy - Vs 
L 


where U(x, y) and V (x, y) are single-valued and differentiable functions inside and 
on L. This implies that 


J| omm —À 1 [Lae grt y™) + 2 (gnymtty dady 
n+m+2 Oy 


1 
= d fere — ydz), 


L 


provided n + m + 2 4 0. We can even have negative n provided x = 0 is outside L, 
and negative m provided y = 0 is outside L. The case (n, m) = (0, —1) occurring 
in curved beam theory can also be treated by line integration, but we will confine 
attention to the six cases listed above. 

If the boundary curve, L, is parameterized as x(t), y(t), a € t € b, then 


b 


jene dy — y dx) = [oroe — y(t)« (t)] dt 


L a 


which is a one-dimensional integral amenable to numerical integration. When cubic 
spline interpolation is used to represent the boundary, then z(t)y'(t) — y(t)z' (t) isa 
piecewise polynomial function of degree four (not degree five as seems apparent at 
first glance). Since a Gaussian quadrature formula of order N integrates exactly any 
polynomial of degree 2N — 1 or less, the integral of interest can be integrated exactly 
by taking 2N — 1 > 3n + 3m + 4. For our case, using a composite Gauss formula 
of order six is appropriate. A program is given below to compute properties for a 
general geometry that can have several separate parts, and these parts may contain 
holes. The details of that program are discussed later. 

The ideas for plane regions can be extended to three dimensions where volume, 
gravity center location, and inertia tensor are the quantities being computed. Let 


R= [r; y; z2] 


be the Cartesian radius vector for points in a three-dimensional region W covered by 
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a surface S. The Gauss divergence theorem [119] implies 


V= T R- dS, 
v- fff messi J| oou 
v.- ff —T RR(R.-1)dsS. 
WwW S 


In the last equation, R R' is the matrix product [x ; y; z] * [x, y, z] and f] is the 
outward directed unit surface normal. We refer to V, V ,., and V,,,. as the volume, 
the first moment of volume, and the second moment of volume. These quantities 
can be evaluated exactly for some special cases, such as polyhedra, and volumes of 
revolution. 

The quantity V „y is useful in rigid body dynamics where the inertia tensor, I pr , is 
needed to compute the rotational kinetic energy. The inertia tensor for a body having 
unit mass density can be computed from V py as 


I..- eye(3, 3) sum(diag(V,,,.)) — V.,.,. 


The corresponding inverse is 


View — 


Se) sum(diag(1....)) — Irr. 


To illustrate the computation of volume properties, consider the instance where the 
surface has a parametric equation of the form 
R(u, v), u Sus U2, V1 S vu. 


For example, the ellipsoid defined by 


has a surface equation 


R = [asin(u) cos(v); bsin(u)sin(v); ccos(v)], OS u<a, 0x v < 2m. 


The unit surface normal and the differential of surface area can be computed as 


where the order of the cross product is chosen so that the outward directed normal is 
produced. Then, 


(R- 7) dS = det([R, Ru, R,]) = D(u,v) du dv 
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Area in zz plane 


Figure 5.2: Generation of a Volume of Revolution 


and the integrals of interest become 


V2 U2 
V= Japon 


Ui ui 
v2 U2 


V, = ; f | A00 aae, 


V1 U1 


v2 U2 


Ver = >| [RR D(u, v)dudv. 


V1 ui 


Note that the function D(u, v) vanishes at points where the radius vector R is per- 
pendicular to the surface normal. A useful instance of the parametric form occurs 
when a closed curve is rotated to form a volume of revolution as illustrated in Fig- 
ure 5.2. 

Consider a curve defined parametrically in the (x, z) plane as x(t), z(t), a < t € 
b. If the curve is rotated about the z axis through angular limits 0; < 0 < 65, the 
lateral surface of the body has a surface equation 


R(t,0) = [cos(0); sin(0); 1]. «[z; x; z] 
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and the volume property integrals reduce to 


V = TE — zdz], 
L 
01 
V.- ; [esto sin(0); 1] dé. T z^; xz] dzdz, 
i L 
04 
Viv = I sin(@); 1] x» [cos(0), sin(0), 1] dé. 
01 
ZI x; z|*[x, v, z] v dzdz. 


L 


The line integrals in the last three formulas have similar structure to those for plane 
area properties, but the highest polynomial power in the integrands of the form x ^ z™ 
is one higher than that encountered for plane area properties. Taking a composite 
Gauss formula of order seven produces exact results for the volume properties when 
a spline interpolated boundary curve is used. A program employing these formulas 
is developed below. 


5.4.1 Area Property Program 


A program was written to compute the area, the centroidal coordinates, the inertial 
moments, and the product of inertia for general plane areas bounded by a series 
of spline curve segments. Shapes such as polygons, having one or more straight 
boundary segments, are also handled by allowing slope discontinuities at the ends of 
the straight segments. The program requires data points zd(7), yd(j), 1 € j € nd 
with the boundary traversed in a counterclockwise sense. The first and last points 
should be identical to make the curve closed. A set of point indices designating any 
slope discontinuities ( such as those at the corners of a square) are also needed. 

A typical geometry for the program appears in Figure 5.3. Program data created 
by the function makeresq employs 27 data points. A multiply connected geometry 
is treated as if it were a simply connected region by introducing fictitious cuts con- 
necting outer boundaries and inner holes. Disconnected parts are also joined with 
zero width strips. Including the cuts and strips has no effect on the area properties 
because related boundary segments are traversed twice, but in opposite directions. 
Consequently, the corresponding line integral contributions from the fictitious parts 
cancel. The complete boundary is parameterized as a spline curve in complex form 


z(t) = a(t) +iy(t), 1 € t € nd 


with 
z(j) = zd(j) + iyd(j), j =1,2,...,nd. 
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HALF ANNULUS ABOVE A SQUARE WITH A HOLE 


15 


y axis 
wo 
A 


9 10 


-1 0 1 2 3 4 5 6 7 
x axis 


Figure 5.3: Geometry Showing Numbered Boundary Points 


The boundary curve and its derivatives are piecewise polynomial functions. Exact 
results for the geometrical properties are obtained by using the function gequad to 
generate Gauss base points and weight factors for integration limits from 1 to nd, 
and a number of integration segments equal to nd — 1. The various area properties 
are accumulated in vector mode for computational efficiency. 

The function runaprop is the main driver for the program. It accepts boundary 
data, calls the function aprop to compute area properties, prints results, and plots 
the geometry. If no input data are given, the function makcrcsq is called to create 
data for the illustrative example. The plot produced by the program resembles the 
one shown, without inclusion of point indices. 


© 2003 by CRC Press LLC 


The numerical output for our example has the following simple form: 


>> runaprop; 


GEOMETRICAL PROPERTY ANALYSIS USING FUNCTION APROP 


A XCG YCG AXX AXY 
16.7147 3.0000 4.1254 176.3369 206.8620 


>> 


Program for Properties of Spline Bounded Areas 


. function [p,x,y,xd,yd]=areaprog(xd,yd,icrnr) 


1 

2: 

3: ^ [p,x,y,xd,ydl-areaprog(xd,yd,icrnr) 
4 0 


s 4 This function calls function aprop which 

« 4 computes geometrical properties for an area 
7 ^ bounded by a spline curve through data 

s h points in (xd,yd). 


i User functions called: aprop 


vw: if nargin==2,icrnr=[1,length(xd)]; end 
13; titl=’AREA IN THE XY PLANE’; 


is: lf nargin-- 

16: [xd, yd, icrnr]-makcrcsq; 

17: titles... 

18: ^'HALF ANNULUS ABOVE A SQUARE WITH A HOLE’; 
19; end 


a: disp? 7?) 
2: dispC[? GEOMETRICAL PROPERTY ANALYSIS’,... 
23: ^ USING FUNCTION APROP’]) 


2: [p,zl-aprop(xd,yd,icrnr); x-real(z); y-imag(z); 
2: disp? ’); 

26: dispC[? A XCG YCG ETEA 

27: i AXX AXY AYY?]) 

2: disp(p), close, plot(xd,yd,’ko’,x,y,’k-’) 


3: Xlabel(’x axis’), ylabel(’y axis?) 
3: title(titl) ,axis(cubrange([x(:),y(:)],1.2)); 
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AYY 
359.6076 


; axis square; shg 


34: 

35: 

36; function [p,zplot]-aprop(xd,yd,kn) 

an % 

3: 4 [p,zplotl-aprop(xd,yd,kn) 

i LO PTT apt Pb S Tq 

4» ^ This function determines geometrical properties 
a: h of a general plane area bounded by a spline 

a: ^ curve 

43: h 

44 4 xd,yd - data points for spline interpolation 

45: h with the boundary traversed in counter- 
46: h clockwise direction. The first and last 
av h points must match for boundary closure. 
as ^ kn - vector of indices of points where the 

a9: h Slope is discontinuous to handle corners 
50: % like those needed for shapes such as a 
51: % rectangle. 

Ap - the vector [a,xcg,ycg,axx,axy,ayy] 

53: V containing the area, centroid coordinates, 
54: h moment of inertia about the y-axis, 

55: % product of inertia, and moment of inertia 
56: % about the x-axis 

s. ^ Zplot - complex vector of boundary points for 

58: % plotting the spline interpolated geometry. 
59: % The points include the numerical quadrature 
60: % points interspersed with data values. 
61: % 

o» ^ User functions called: gcquad, curve2d 

6 if nargin-- 

64 td-linspace(0,2*pi,13); kn-[1,13]; 

o» xd=cos(td)+1; yd=sin(td)+1; 

66: end 

o5; nd=length(xd); nseg-nd-1; 

cs [dum,bp,wf]-gcquad([],1,nd,6,nseg) ; 

ox [z,zplot,zpl-curve2d(xd,yd,kn,bp); 

zx: w=[ones(size(z)), z, z.*conj(z), z.^2].*... 

n repmat(imag(conj(z).*zp),1,4); 

7»: V7(wf?*w)./[2,3,8,8]; vr-real(v); vi-imag(v); 

7: pe[vr(1:2),vi(2),vr(3)*vr(4) ,vi(4) ,vr (3) -vr (4)] ; 
7 p(2)=p(2)/p(1); p(3)=p(3)/p(1) ; 
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N N 
= o0 


oan wo c 


oe 


. 4 kn P 


Ox zplot = 


. function [z,zplot,zp]=curve2d(xd,yd,kn,t) 


: 4 [z,zplot,zp]=curve2d(xd,yd,kn,t) 


. ^ This function generates a spline curve through 
. ^ given data points with corners(slope dis- 
. 4^ continuities) allowed as selected points. 
VA xd. yd 


real data vectors of length nd 
defining the curve traversed in 
counterclockwise order. 

vectors of point indices, between one 
and nd, where slope discontinuities 
occur 

a vector of parameter values at which 
points on the spline curve are 
computed. The components of t normally 
range from one to nd, except when t is 
a negative integer,-m. Then t is 
replaced by a vector of equally spaced 
values using m steps between each 
successive pair of points. 

vector of points on the spline curve 
corresponding to the vector t 

a complex vector of points suitable 
for plotting the geometry 

first derivative of z with respect to 
t for the same values of t as is used 
to compute z 


; ^ User m functions called: splined 


. nd=length(xd); zd-xd(:)*i*yd(:); td=(1:nd)’; 
. if isempty(kn), kn=[1;nd]; end 

; kn-sort(kn(:)); if kn(1)^-1, kn=[1;kn]; end 
; if kn(end)^-nd, kn-[kn;nd]; end 

. N=length(kn)-1; m-round(abs(t(1))); 


if -t(1)==m, t=linspace(1,nd,1+N*m)’; end 
: z=[]; zp=[]; zplot=[]; 
; for j=1:N 


ki-kn(j); k2-kn(j*1); K=k1:k2; 
k-find(ki«-t & t«k2); 

if j==N, k-find(ki«-t & t<=k2); end 
if ^"isempty(k) 
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27: 
: end 
; zplot=[zplot;zd(end)]; 


zk=spline(K,zd(K) ,t(k)); z-[z;zk]; 
zplot-[zplot;zd(k1);zk]; 
if nargout-- 
zp-[zp;splined(K,zd(K) ,t(k))]; 
end 
end 


3 function [x,y,icrnr]=makcrcsq 
0 
s ^ [x,y,icrnr]=makcrcsq 


:. 4 This function creates data for a geometry 
. 4 involving half of an annulus placed above a 
39: ^ Square containing a square hole. 


: 4 x,y  - data points characterizing the data 
. 4 icrnr - index vector defining corner points 


; XShift-3.0; yshift-3.0; 
; a=2; b-1; narc-7; x0=0; y0-2*a-b; 
: xy=[a,-a,-b, b, b,*b,-b,-à,-a, a, aj 


a, a, b, b,-b,-b, b, a,-a,-a, al’; 


si; theta-linspace(0,pi,narc)'; 

52, C=cos(theta); s-sin(theta); 

s». xy7 [xy ; [x0*a*c, y0*a*s]] ; 

54 C=flipud(c); s-flipud(s); 

ss xy" [xy ; [x0*b*c , yO+b*s] ; [a, yO]; [a,a]] ; 
s. X=xy(:,1)+xshift; y=xy(:,2)+yshift; 
s; icrnr=[(1:12)’?;11+narc;12+narc; 


11+2*narc;12+2*narc;13+2*narc] ; 


:% function [val,bp,wf]=gcquad(func,xlow,... 
3: h xhigh,nquad,mparts,varargin) 
; 4 See Appendix B 
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18: ^ function range-cubrange(xyz,ovrsiz) 
165 ^ See Appendix B 


173: 4 function val=splined(xd,yd,x,if2) 
iva; ^ See Appendix B 


5.4.2 Program Analyzing Volumes of Revolution 


Since the geometrical property computation for a volume of revolution is quite 
similar to that for area properties, the same functions gequad and curve2d used in 
the area program are employed below to compute the volume, centroidal coordinates, 
and inertia tensor of a solid generated by rotating a spline curve through arbitrary an- 
gular limits about the z axis. In the following program, the function volrevol calls 
a general purpose function volrev which computes the geometrical properties and 
plots the related volume of revolution. The function volrev depends on gequad, 
curve2d, function rotasurf to plot the body surface, and function anglefun which 
deals with rotation angle dependence. The function returns volume properties and 
surface coordinates on the solid. Area properties of the cross section are also ob- 
tained. 

The geometry in Figure 5.4 was analyzed. The area, rotated through 270 degrees, 
consists of the bottom half of a semicircle capped on the outer radius by a square 
which is also capped by a smaller semicircle. Results from volrev were confirmed to 
agree closely with another function srfv, which is discussed in the next section. Be- 
cause the function srfv employs triangular surface elements, the two computational 
models are not identical. This accounts for the slight difference in numerical results. 

In conclusion, the volume property program to handle volumes of revolution for 
spline interpolated cross sections was found to be a useful extension of the methods 
developed earlier for properties of areas. 


Computer Output from Volume of Revolution Program 


>> volrevol 

PROPERTIES OF A VOLUME OF REVOLUTION 
Results Using Function VOLREV 
Volume = 59.1476 

Rg = [0.91028 0.91028 0.13755] 
Inertia Tensor = 

1.0e+003 * 

0.5773 0.1168 -0.0090 

0.1168 0.5773 -0.0090 

-0.0090 -0.0090 1.1010 

Area Properties 
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area xcentr zcentr. 

2.9638 4.2350 0.1045 

aXX AXZ azz 

53.8408 1.7264 1.3101 
Results Using Function SRFV 
Volume = 59.1056 

Rg = [0.91016 0.91016 0.13749] 
Inertia Tensor = 

1.0e+003 * 

0.5768 0.1167 -0.0090 

0.1167 0.5768 -0.0090 
-0.0090 -0.0090 1.0999 

>> 


VOLUME OF REVOLUTION 


y axis 


-5 -5 x axis 


Figure 5.4: Partial Volume of Revolution 


Program for Properties of a Volume of Revolution 


; function volrevol 
NU 
; 4 volrevol 


omm nA 


ROOM H 
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bd 
[^ 


^ This program determines geometrical properties 

^ for a solid generated by rotating a closed spline 

^ curve through an arbitrary angle about the z-axis. 
^ A detailed description of the geometry is given in 
^ function volrev. 


; 4 User m functions called: volrev srfv 


. ^ Data for a cross section consisting of the lower 
. ^ half of a circle plus a square capped by the 

. 4 upper half of a smaller semicircle. The geometry 
. ^ is rotated through 270 degrees about the z-axis. 


; n1=9; ti--pi:pi/ni1:0; n2=6; t2-0:pi/n2:pi; 
. Zd- [O, exp (i*t1),1/2*itexp(i*t2)/2,0]; 

. xd=real(Zd)+4; zd=imag(Zd) ; 

22: th=[-pi/2,pi]; nth=31; 

2: kn=[1,2,n1+2,n1+3,n1+n2+3,n1+n2+4] ; 


26: 4 Compute the geometrical properties 
2: [v,rg, Irr,x,y,z,apropl-volrev(... 


xd,zd,kn,th,nth); 


: disp? 2139 

: disp(’ PROPERTIES OF A VOLUME OF REVOLUTION’) 
: disp? 3) 

; dispC Results Using Function VOLREV?) 

. disp([^Volume = ’ ,num2str(v)]), %disp ?) 


3: disp([Rg = D',num2str(rg(:)?0,?]? DD, 4dispC ’) 
s disp(’Inertia Tensor =’), disp(Irr), A4disp(C? ?) 
3: disp(? Area Properties’), %disp(’ ?) 


37: disp? area xcentr zcentr.?) 
. disp(aprop(1:3)) 
. disp? axx axz azz?) 


; disp(aprop(4:6)) 


. ^ Run a second case to generate a dense set of 
. ^ surface coordinates to check results using 
: ^ function srfv. 


: N1261; Ti--pi:pi/N1:0; N2=41; T2=0:pi/N2:pi; 
. Zd=[0,exp(i*T1) ,1/2+itexp(i*T2)/2,0]; 

. xxd=real(Zd)+4; zzd=imag(Zd) ; 

. th-[-pi/2,pi]; Nth-121; 
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; Kn=[1,2,N1+2,N1+3,N1+N2+3 ,N1+N2+4] ; 


. [V, Rg, IRR,X, Y, Z] -volrev(... 


xxd,zzd,Kn,th,Nth,1); 


;: [vt,rct,vrrt]=srfv(X,Y,Z); 

; disp Results Using Function SRFV?) 

. disp([’ Volume = ’ ,num2str(vt)]) 

: disp(DRg = [’ ,num2str(rct(:)’),’]?]) 
. disp(’?Inertia Tensor =’), disp(vrrt) 


. function [v,rg,Irr,X,Y,Z,aprop,xd,zd,kn]-.. 


volrev(xd, zd,kn,th,nth ,noplot) 


[v,rg, Irr,X,Y,Z,aprop,xd,zd,kn]-... 


volrev(xd,zd,kn,th,nth,noplot) 


This function computes geometrical properties 
for a volume of revolution resulting when a 
closed curve in the (x,z) plane is rotated, 
through given angular limits, about the z axis. 
The cross section of the volume is defined by 
a spline curve passed through data points 
(xd,zd) in the same manner as was done in 
function areaprop for plane areas. 


xd,zd 
kn 

P 
X,Y,Z 


data vectors defining the spline 
interpolated boundary, which is 
traversed in a counterclockwise 
direction 

indices of any points where slope 
discontinuity is allowed to turn 

sharp corners 

vector of volume properties containing 
[v, xcg, ycg, Zcg, VXX, vyy, vzz, 

vxy, Vyz, vzx] where v is the volume, 
(xcg,ycg,zcg) are coordinates of the 
centroid, and the remaining properties 
are volume integrals of the following 
integrand: 

[x.^, 4.72, 2.^2; Xy, yz, 2x]*dxdyxz 
data arrays containing points on the 
surface of revolution. Plotting these 
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95: % points shows the solid volume with 


96: the ends left open. Function fi113 

97: % is used to plot the surface with ends 

os: % closed 

ə: 4 aprop - a vector containing properties of the 

oo: % area in the (x,z) plane which was used 

o: % to generate the volume. aprop-[area,... 
o2: A xcentroidal, ycentroidal, axx, axz, azz]. 


o4 ^ User m functions called: rotasurf, gcquad, 
05: % curve2d, anglefun, splined 


o if nargin-- 

os — ti--pi:pi/6:0; t2=0:pi/6:pi; 

o: — Zd-[O, exp(i*t1),1/2*i*exp(i*t2)/2,0,-1]; 
o xd=real(Zd)+4; zd=imag(Zd) ; 

xı — kn-[1,2,8,9,15,16]; 

2 — th-[-pi/2,pil; nth=31; 

3 end 

4: 

5 ^ Plot a surface of revolution based on the 
o ^ input data points 

7 if nargin-- 

8 [X,Y,Z]=rotasurf (xd,zd,th,nth,1); 

9 else 

20: [X,Y,Z]-rotasurf (xd,zd,th,nth); pause 

21. end 


23: ^ Obtain base points and weight factors for the 
2: ^ composite Gauss formula of order seven used in 
25: ^ the numerical integration 

2: nd=length(xd); nseg-nd-1; 

2: [dum,bp,wf]-gcquad([] ,1,nd,7,nseg) ; 


2: ^ Evaluate complex points and derivative values 
30: ^ On the spline curve which is rotated to form 
3: & the volume of revolution 

a» [u,uplot,up]=curve2d(xd,zd,kn, bp) ; 

a» 4 plot(real(uplot),imag(uplot)), axis equal,shg 
34, u-u(:); up=up(:); n-length(bp); 

3: x=real (u); dx-real(up); z-imag(u); 

3: dz=imag(up); da-x.*dz-z.*dx; 


3: ^ Evaluate line integrals for area properties 
3: p=[ones(n,1), x, Z, Xo 2, X42. 2052. X.^3,... 


© 2003 by CRC Press LLC 


(x.^2).*z, x.*(z.^2)].*repmat(da,1,9); 


: pe(wfi(:)’*p)./12 3344455 5]; 


» 4 Scale area properties by multipliers involving 
. 4 the rotation angle for the volume 

s f-anglefun(th(2))-anglefun(th(1)); 

. vet (1)*p(2); rg-f([2 3 1) .*p([4 4 5])/v; 
wrres[fCl4 5 2]); f([5 6 3]); f([2 3 1])].*... 


[p([7 7 8]); p([7 7 8]); p([8 8 9])]; 


; Irrzeye(3) *sum(diag(vrr))-vrr; 
so: aprop=[p(1) , p (2:32 /p (12, p(4:6)1; 


54 function f=anglefun(t) 

5: ^ f=anglefun computes multipliers involving 
s: h t, the rotation angle of the volume. 

s; c=cos (t); s=sin(t); 

ss: f=[t,s,-c, (t*c*s) /2,s*s/2, (t-c*s)/2]; 


» function [x,y,z,xd,zd]-rotasurf (xd,zd,th,nth,noplot) 
: 4 (x,y,z,xd,zd]=rotasurf (xd,zd,th,nth,noplot) 

.% This function generates points on a surface of 
s ^ revolution generated by rotating an area in 

6: 4 the (x,z) plane about the z-axis 


s: 4 Xd,yz - coordinate data for the curve in the 
mA (x,y) which forms the cross section 

^ th - [ThetaMin,ThetaMax] defining limits of 
(4 rotation angle about the z-axis 

"A4 nth - number of theta values used to generate 
-h surface values 

. 4 noplot - option given any value if no plot is 
NA desired. Otherwise omit this value. 

» ^ X,y,Z - arrays of points on the surface 


; 4^ User m functions called: none 


; if nargin-- 


ni=9; ti--pi:pi/nií:0; n2=6; t2=0:pi/n2:pi; 
Zd- [0, exp(i*ti1),1/2*i*exp(i*t2)/2,0]; 
xd-real(Zd)*4; zd=imag(Zd) ; 
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th=[-pi/2,pi]; nth-31; 


; end 

. xd=xd(:); zd=zd(:); nd=length(xd) ; 

. t=linspace(th(1) ,th(2) ,nth) ; 

. x=xd*cos(t); y=xd*sin(t); z=repmat(zd,1,nth) ; 
; if nargin--5, return; end 

. close; surf(x,y,z), title(' VOLUME OF REVOLUTION?) 
: Xlabel(’x axis’), ylabel(’y axis?) 

. Zlabel(’z axis’), colormap([1 1 1]); hold on 
: fill3(x(:,1),y(:,1),z(:,1),? wW?) 

s fill3(x(:,end),y(:,end),z(:,end),"w?) 

; axis equal, grid on, hold off, shg 


. 4 function [z,zplot,zp]=curve2d(xd,yd,kn,t) 
; 4 See Appendix B 


s ^ function [val,bp,wf]=gcquad(func,xlow,... 
A xhigh,nquad,mparts,varargin) 
; 4 See Appendix B 


^ function range-cubrange(xyz,ovrsiz) 
^ See Appendix B 


^ function val-splined(xd,yd,x,if2) 
^ See Appendix B 


: 4 function [v,rc,vrr]-srfv(x,y,z) 
; 4 See Appendix B 


E: SeSe 


5.5 Computing Solid Properties Using Triangular Surface 
Elements and Using Symbolic Math 


In this section a numerical method is developed to compute properties of a solid 
covered by triangular surface elements. An example problem is analyzed by a nu- 
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merical method and also by use of the symbolic math toolbox. Results of the two 
analyses are compared. 

Many familiar solid bodies such as an ellipsoid, a conical frustum, or a torus have 
surfaces readily parameterized by equations of the form 


R= R(u,v), U; € u € Us, Vi € v € Vo. 


This is the type of equation implied when MATLAB function surf uses rectangular 
X, Y, Z coordinate arrays to depict a curvilinear coordinate net covering a surface. 
The surface is approximated by a series of quadrilateral surface patches. Geometri- 
cal properties of the related solid can be computed approximately by dividing each 
quadrilateral into two triangular patches, and accumulating the surface integral con- 
tributions of the triangles. This approach is attractive because the surface integral 
properties of triangles can be computed exactly, and all triangles can be processed 
in parallel. Although the geometrical properties for a solid covered by triangular 
patches can be computed exactly, the reader should realize that many surface ele- 
ments may be required to achieve several digit accuracy for highly curved surfaces. 

To fix our ideas, consider the solid in Figure 5.5 which resembles a twisted rope. 
This body has its outer surface (as distinguished from its ends) described by the 
following set of equations: 


x = zo + pcos(p), y = yo + psin(p), z= zo — ésin(mp) + ncos(m p), 
p-— a-- écos(m p) -- gnsin(mp), 0€ tx 2n, 0 € p € 3m, 
E = bcos(t) |cos(t)|, m = bsin(t) |cos(t)| . 


The cross section of the solid is two circular disks touching tangentially. The solid is 
swept out as the centroid of the area (where the circles touch) moves along a helical 
path and twists simultaneously. The parameter choices used in our example are 


a —3, b=1, m — 6, zo = yo = 0, zo = 37/2 


which places the centroid of the solid on the y-axis and makes the ends of the rope lie 
in the zz plane. Then the geometrical property contributions from both end surfaces 
are zero because f] - R vanishes on the ends. 

Let us next think about a solid with its surface composed of triangular patches. 
For a generic patch with corners at R;, R;, Rp , denote the surface area as S and 
the unit surface normal as 77. Then 

2 1 
9 Sr = ;(Rj — Ri) x (Re — Ri), 
and the triangle centroid is at 


1 
Ro = zR + Rj + Ry). 


If h is the normal distance from the origin to the plane containing the triangle, then 
h = fj: Ri and Sr = |ì Sy|. The first two volume properties are just 


1 h 
= n- d = 
Vr z ffa Ras z OF 

Sr 
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TWISTED ROPE 


N 
bc 


[| 


x axis 


y axis 


Figure 5.5: Solid Resembling a Twisted Rope 
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and 


1 E h 
(Vg)v = F | [a manas - qorke. 
Sr 
The remaining inertial property integral is 


1 À h 
(Vng)r = = [fan RA dS = — Sr (R; R{+R; Rj- Ry R,+9Rc Ro). 
ST 


These formulas were used to develop the function srfv which computes geometrical 
properties for a surface described by the same type of data arrays as those used by 
the function surf. Each quadrilateral patch is divided into two triangles, and the 
contributions of all triangles are accumulated in vectorized mode for computational 
efficiency. 

The function ropesymu in the following program calls function twistrope to per- 
form numerical computation, function twistprop to perform symbolic computation, 
and function ropedraw to plot the geometry of the twisted rope. Twistrope calls the 
function srfv which is a general routine to compute properties of solid bodies mod- 
eled with triangular surface elements. The numerical example employs point arrays 
of dimension 804 by 100 to obtain the numerical solution. Results for the numerical 
and symbolic computations are shown next along with the computer code. Note that 
the numerical and exact solutions agreed within 0.2 percent. The numerical solution 
took about 1.3 secs compared with 314 seconds for the symbolic solution. Even 
though the symbolic solution took 238 times as long to compute as the numerical so- 
lution, the symbolic coding was simple and might be appealing in specific situations 
where the related integrals can be evaluated exactly. 


E EEEETTEEETTÉETTLÉETTTLTTTITTIÉTIÉITIIIIIIIÍIIZ 


5.6 Numerical and Symbolic Results for the Example 


COMPARISON OF NUMERICAL AND SYMBOLIC 
GEOMETRICAL PROPERTIES FOR A TWISTED ROP! 


Lj 


FOR THE TRIANGULAR SURFACE PATCH MODEL 
Volume - 44.3239 
Rg = [1.6932e-015 0.64979 3.0068e-015] 
Irr = 

548.6015 -0.0000 29.0040 

-0.0000 548.6015 -0.0000 

29.0040 -0.0000 423.7983 


Computation Time = 1.3194 Secs. 
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GAUSS INTEGRATION WITH GEOMETRIC PROPERTY APPLICATIONS 


FOR THE SYMBOLIC MODEL 
Volume = 44.4132 


Rg = [0 0.64982 0] 
Irr = 
549.7423 0 29.0639 
0 549.7423 0 
29.0639 0 424.7014 


Computation Time - 314.28 Secs. 


NUMERICAL APPROXIMATION ERROR USING TRIANGULAR 
SURFACE PATCHES. THE ERROR VALUES ARE DEFINED AS 
NORM (APPROX. -EXACT) /NORM (EXACT) 

Volume Error = 0.0020102 
Centroidal Radius Error = 4.7287e-005 
Inertia Tensor Error = 0.0020768 


COMPARISON OF SOLUTION TIMES 
(Symbolic Time)/ (Numerical Time) = 238.1992 


Program ropesymu 


function [vn,rcn,irrn,vs,rcs,irrs,times,nt,np]= 


173 


e 


9o se qu ope. camere da 


ropesymu(A, B, M,X0,Y0,ZO ,nt,np) 


[vn,rcn,irrn,vs,rcs,irrs,times,nt,np]-ropesymu(... 
A,B,M,X0,Y0,Z0,nt,np) 


This program computes geometrical properties of a 
twisted rope having a cross section which is two 
circles of diameter B touching tangentially. The 
tangency point is at distance A from the rotation 
axis z. As the area is rotated, it is also twisted 
in a helical fashion. For a complete revolution 
about the z axis, the area is twisted through m 
turns. The resulting surface resembles a rope 
composed of two strands. Two results are obtained 
1) by a numerical method where the surface is 
modeled with triangular surface patches and 

2) by symbolic math. See functions twistrope and 
twistprop for descriptions of the problem parameters. 
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. ^ Numerical results and computation times for the two 
2: ^ methods are compared, and the related surface 
23: ^ geometry is plotted 

0 


s 4 User functions called: twistrope twistprop ropedraw 


2: if nargin--0 % Default data case 


A-3; B-1; m-6; np-201; nt=25; 
X020; YO=0; Z0-2-3*pi/2; M=6; 


;: end 


: disp? ?) 
3a: disp? COMPARISON OF NUMERICAL AND SYMBOLIC’) 
s: disp(’GEOMETRICAL PROPERTIES FOR A TWISTED ROPE’) 


. ^ Run the first time to get a crude grid for plotting 
ss [Vn,rcn,irrn,x,y,z,c]=twistrope(A,B,M,X0,Y0,Z0,nt,np) ; 


. ^ Numerical solution using a dense point grid to get 
: ^ close comparison with exact results. Calculations 
. ^ are run repeatedly for accurate timing. 

; Nt=4*nt; Np-4*np; n-50; tic; 

: for i-1:n 


[vn,rcn,irrn]-twistrope(A,B,M,X0,Y0O,ZO, Nt, Np) ; 


: end 
;: timn=toc/n; 


. ^ Perform the symbolic analysis. This takes a long 
so: ^ time. 

51: tic; 

s: [v,rc,vrr,vs,rcs,irrs]=twistprop(A,B,M,X0,Y0,Z0); 

s tims=toc; times=[timn,tims] ; 


55: disp ( >?) 
s: disp(’?FOR THE TRIANGULAR SURFACE PATCH MODEL’) 
s: disp([’ Volume = ’ ,num2str(vn)]) 


s: disp([^Rg = [',num2str(rcn(:)?),?]?]) 
. displ’ Irr = ?), disp(irrn) 
; disp([?’ Computation Time = ’ ,num2str(timn),’ Secs.’]) 


. ^ Print numerical comparisons of results 
. disp ?) 
. dispC FOR. THE SYMBOLIC MODEL’) 
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s disp(['Volume = ?,num2str(vs)]) 

; disp(DRg = [,num2str(rcsC:)?),?]1? D 
. displ’ Irr = ’), disp(irrs) 

: disp([’Computation Time = ’ ,num2str(tims),’ Secs.’]) 


: disp? ?) 
. disp(? NUMERICAL APPROXIMATION ERROR USING TRIANGULAR’ ) 

. disp SURFACE PATCHES. THE ERROR VALUES ARE DEFINED AS’) 
. disp? NORM (APPROX . -EXACT) /NORM (EXACT) ?) 
; evol-abs(vn-vs)/vs; erad-norm(rcs(:)-rcn(:))/norm(rcs); 
s einert-norm(irrn-irrs)/norm(irrs); 


. disp([?^Volume Error = ’ ,num2str(evol)]) 

. disp([’Centroidal Radius Error = ’ ,num2str(erad)]) 
. disp([’ Inertia Tensor Error = ’ ,num2str(einert)]) 
: disp? ?) 


: disp(?’ COMPARISON OF SOLUTION TIMES?) 
; disp([’ (Symbolic Time)/(Numerical Time) = ’,... 


num2str(tims/timn)]) 


: disp? ?) 
. ^ Draw the surface using a crude grid to avoid 


. ^ crowded grid lines 
: ropedraw(A,B,np,nt,M,X0,Y0,Z0) ; 


. function [x,y,z,t]=ropedraw(a,b,np,nt,m,x0,y0,z0) 
: %4 [x,y,Z,t]=ropedraw(a,b,np,mp,m,x0,y0,z0) 


. ^ This function draws the twisted rope. 
; if nargin-- 


a-3; b-1; np-200; nt-25; m-6; 
x0=0; y020; z0--3*pi/2; 


; end 


. 4 Draw the surface 

; t=linspace(0,2*pi,nt); p-linspace(0,3*pi,np)'; 
. t=repmat(t,np,1); p=repmat(p,1,nt); 

; Xi-b*cos(t).*abs(cos(t)); eta-b*sin(t).*abs(cos(t)); 
: rho-a*xi.*cos(m*p)-*eta.*sin(m*p); 

; x=rho.*cos(p)+x0; y=rho.*sin(p)+y0; 

; Z=-xi.*sin(m*p)+eta.*cos(m*p)+ptz0; 

: close; surf(x,y,z,t), title(’TWISTED ROPE’) 
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20: 
21: 
22: 
23: 
24: 
25: 
26: 
2'r: 
28: 
29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
A1: 
42: 
43: 
44: 
45: 
46: 
AT: 
48: 
49: 


50: 
51: 
52: 
53: 
54: 


: Xlabel(’x axis’), ylabel(’y axis’), zlabel(’z axis’) 
: colormap(?prism(4)?), axis equal, hold on 


: 4 Fill the ends 

: fill13(x(1,:),y(1,:),z(1,:),? w?) 

: £1113(x(end,:),y(end,:),z(end,:),’w’) 
; view([-40,10]), hold off, shg 


function [v,rc,vrr,V,Rc,Irr]-twistprop(A,B,M,X0,Y0,ZO) 
^ [v,rc,vrr,V,Rc,Irr]-twistprop(A,B,M, X0, YO, ZO) 


^ This function computes geometrical properties of 
^ a twisted rope. Exact results are obtained using 
^ symbolic math to evaluate three surface integrals 
^4 for the volume, centroidal radius, and inertia 

^ tensor. The symbolic calculations take about five 
^ minutes to run. 


^ A,B,N - parameters defining the twisted rope 
^4 X0,Y0O,ZO0 - center coordinates for the centroid of 
% the twisted rope 
A v,rc - symbolic formulas for the volume and 
y^ centroid radius 
^ vrr - symbolic formula for integral of 
y, r*r?*d(vol) 
^4 V,Rc - numerical values for volume and 
% centroid radius 
^ Irr - numerical value for the inertia tensor 
if nargin== 
A=6; B=1; M=6; X0=1; YO=2; Z0=3; 
end 


syms ab m t p xi eta rho x y z r rt rp real 
syms xO yO z0 real 

syms n dv dvi v vri vr rg vrri vrr real 
a-sym(A); b=sym(B); Pi=sym(’pi’); 
x0=sym(X0); yO-sym(YO); zO-sym(Z0); 


^ Surface equation for the twisted rope 


xi-b*cos(t)*abs(cos(t)); 
eta-b*sin(t)*abs(cos(t)); 
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s rho-a*xi*cos(m*p)-*eta*sin(m*p); 
s: X=rhoxcos(p)+x0; y-rho*sin(p)*yO; 
s. Zc-xi*sin(m*p)-*eta*cos (m*p)*p*z0; 
ss Pi=sym(’ pi’); 


. 4 Tangent vectors 
: r=[x;y;z]; rt=diff (r,t); rpsediff(r,p); 


3: ^4 Integrate to get the volume 
4 dv-det([r,rp,rt]); dvi-int(dv,t,0,2*Pi); 
s v-simple(int(dvi1,p,0,3*xPi)/3); 


;; 4 First moment of volume 
3; Vri-int(r*dv,t,0,2xPi); 
» vr=simple(int (vr1,p,0,3*Pi)/4) ; 


; 4^ Radius to the centroid 
. rc=simple(vr/v) ; 


. 4 Integral of r*r’*d(vol) 
s vrri-int(r*r?*dv,t,0,2*Pi); 
; vrr=simple(int(vrri,p,0,3*Pi)/5) ; 


; 4 Obtain numerical values 
: Vedouble(subs(v,ía,b,m,x0,y0,z0],... 


{A,B,M,X0,Y0,ZO})); 


: Rc=double(subs(re,{a,b,m,x0,y0,z0},... 


{A,B,M,X0,Y0,ZO})); 


Irr-double(subs(vrr,Íía,b,m,x0,y0,z0],... 


{A,B,M,X0,Y0,ZO})); 


; ^ Rigid body inertia tensor for a 
: 4 body of unit mass density 
; Irrzeye(3,3) *sum(diag(Irr))-Irr; 


» function. [v,rc,vrr,x,y;z,t]-twistrope(... 


a,b,m,x0,y0,z0,nt,np) 


: b [v,rc,vrr,x,y,z,t]=twistrope(... 
ks a,b,m,x0,y0,z0,nt,nm) 


; 4 Geometrical properties of a twisted rope. 


^ This example takes 1.3 seconds to run 
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; if nargin«8, np-321; end; if nargin«7, nt-161; end 
; if nargin-- 


a-6; b-1; m-6; x0=1; y0=2; z0-3; 


s end 
; t=linspace(0,2*pi,nt); p-linspace(0,3*pi,np)'; 
. t=repmat(t,np,1); p-repmat(p,1,nt); 


; ^ Surface equation for the twisted rope 


; Xi=b*cos(t).*abs(cos(t)); 

. eta=b*sin(t) .*abs(cos(t)); 

: rho-a*xi.*cos(m*p)-*eta.*sin(m*p); 

; x=rho.*cos(p)+x0; y=rho.*sin(p)+y0; 
; Z=-xi.*sin(m*p)+eta.*cos(m*p)+ptz0; 


: [v,rc,vrr]=srfv(x,y,Z); 


: function [v,rc,vrr]=srfv(x,y,z) 


: h lv,rc,vrr]=srfv(x,y,z) 


.% This function computes the volume, centroidal 
. 4 coordinates, and inertial tensor for a volume 
» ^ covered by surface coordinates contained in 

. 4 arrays x,y,z 


-4 X,y,Z  - matrices containing the coordinates 
ote of a grid of points covering the 

Behe surface of the solid 

AV - volume of the solid 

H rc - centroidal coordinate vector of the 
o solid 

(4 vrr - inertial tensor for the solid with the 
h mass density taken as unity 


; ^ User functions called: scatripl proptet 


: 4 p=inline(... 
ch > weCeye(3) eG)? ar) Jr ls) eG) yr r); 


. #d=mean([x(:),y(:),2(:)]); 
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24: Ax-x-d(1); y=y-d(2); z-z-d(3); 


z7 [n,m]=size(x); i-1:n-1; I-i*1; j=t:m-1; J=j+1; 
zs xij-x(i,j); yij=yG,j); zij=zdi,j); 
29: XIj7x(1,j); ylj-y(1,j); zIjez(1,j)5; 
20: XIJ=x(1,J); yIJ-y(I,J); zlJ=z(1,J); 
21: XiJ-x(i,J); yiJ-y(i,J); ziJ-z(i,J); 


253: 4 Tetrahedron volumes 

244: Vi-8catripl(xij,yij,zij,xI1j,ylj,zIj,.xIJ,yIJ,zIJ); 
255; V27Scatripl(xij,yij,zij,xIJ,yIJ,zIJ,xiJ,yiJ,ziJ); 
256: V=sum(sum(vitv2)); 


ass: ^ First moments of volume 

259: X1=xij+xIj+xIJ; X2-xij*xIJ*xiJ; 
260 Yl=yijtyljtylJ; Y2=yij+yIJ+yiJ; 
261: Zl-zij*zIj*zIJ; Z2=zij+zIJ+ziJ; 
262: VX=sum(sum(vi.*X1+v2.*X2)); 

23: Vy=sum(sum(v1.*Y1+v2.*Y2)); 

264. VZ=sum(sum(vi.*Z1+v2.*Z2)); 


26: Second moments of volume 
27: Vrr-proptet(v1,xij,yij,zij,xlj,ylj,.zlj,... 


268: xIJ,yIJ,zIJ,X1,Y1,Z1)+... 
269: proptet (v2,xij,yij,zij,xIJ,yIJ,zIJ,... 
270: xiJ,yiJ,ziJ,X2,Y2,Z2); 


an: rc=[vx,vy,vz]/v/4; vs-sign(v); 

272: V-abs (v)/6; vrr=vs*vrr/120; 

zi; vrr=[vrr([1 4 5]), vrr([4 2 6]), vrr([5 6 3])]’; 
274: Vrr-eye(3,3)*sum(diag(vrr))-vrr; 


ze: Avrr-vrr-p(v,rc)*p(v,rc4d); rc-rc*d; 


23: function v=scatripl(ax,ay,az,bx,by,bz,cx,cy,cz) 
0 


232: 4 V=Scatripl(ax,ay,az,bx,by,bz,cx,cy,cz) 

sposi CX BESAT SEMIS auam ATT ie AER E RT 
234: h Scalar triple product dot(cross(a,b),c) where 
23: 4 the cartesian components of vectors a,b,and c 
236: h are given in arrays of the same size. 
287: V=ax.* (by. *cz-bz. *cy) tay. * (bz. *cx-bx.*cz)... 
zs  +az.*(bx.*cy-by.*cx) ; 
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22: function vrr-tensprod(v,x,y,z) 
293: % 

0 
24: 4 Vrr-tensprod(v,x,y,z) 

0 


2%: 4 This function forms the various components 
207: h Of v*R*R?’. The calculation is vectorized 
28s: ^ Over arrays of points 

299: VXx-sum(sum(v.*x.*x)); vyy-sum(sum(v.*y.*y)); 
so: Vzz-sum(sum(v.*z.*z)); vxy-sum(sum(v.*x.*y)); 
301: VXz-sum(sum(v.*x.*z)); vyz-sum(sum(v.*y.*z)); 
302: Vrr-[vxx; vyy; vzz; vxy; vxz; vyz]; 


3%: function vrr-proptet(v,x1,y1,z1,x2,y2,z2,... 
307: x3, y3,Z3,XxC,yC,ZC) 


309: A vrr=proptet (v,x1,y1,z1,x2,y2,Zz2,Xx3,y3,Zz3,... 


m Xo vc mo) 


Ji 

z ^ This function computes tensor properties of a 
3: ^ tetrahedron with its base being a triangular 

4 h surface and its apex at the origin 

s vrr=tensprod(v,x1,y1,z1)+tensprod(v,x2,y2,z2)+... 
6 tensprod(v,x3,y3,z3) *tensprod(v,xc,yc,zc) ; 


E: NR 


5.7 Geometrical Properties of a Polyhedron 


A polyhedron is a solid covered by polygonal faces. Since polyhedra with suffi- 
ciently many faces can approximate volumes of complex shape, computing the vol- 
ume, centroidal position, and inertia tensor of a polyhedron has useful applications. 
A polyhedron can be treated as the combination of a number of pyramids with bases 
which are the polyhedron faces and apexes located at the coordinate origin. Once the 
geometrical properties of a pyramid are known, results for a polyhedron are found 
by combining results for all faces [111]. 

Consider a general volume V covered by surface S. It follows from the divergence 
theorem of Gauss [59] that 


// X"Y"Z'dX dY dZ = a [ff XY - R)dS 
nt+m+l43 
V S 


where f is the outward directed surface normal and R is the column vector [X ; Y; Z]. 
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This formula implies 


li ile ae 
vee fl RdX dY dZ = — ff ROR 


and 


n 1 7 
Van - |f RR ax ay dz == | RR (ij- R) dS 
V S 


where R means the transpose of R. Let us apply these formulas to a pyramid with 
the apex at R = 0 and the base being a planar region Sy of area A. For points on the 
side of the pyramid of height h we find that ù - R = 0, and for points on the base 
fj: R = h. Consequently 


s aded 
ELE ES 
met RR ds. 
Sp So 


The volume is equal to one third of the height times the base area, regardless of the 
base shape. If R, and R, signify the centroidal radii of the base and the pyramid 
volume, respectively, we get 


Therefore, the centroid of the volume lies 3 of the way along a line from the apex 
to the centroid of the base. For any planar area it is not hard to show that the area A 
and unit surface normal 7) can be computed using the line integral 


1 
== dR. 
Jf Rx aR 


The last formula simplifies for a polygon having corners at R1, Ro,..., Rn to yield 


1 TL 
fA-— 3 XOR, X R,,1 where R,,; = Ry. 


j=l 
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To compute the first and second area moments for a general planar area, it is helpful 
to introduce coordinates centered anywhere in the plane containing the base. We let 


R=Rot+tx+jy 


where Ro is a vector to a point in the plane of the base, and ? and 2 are orthonormal 
unit vectors which are tangent to the plane and are chosen such that 2, 5, 7 form a 
right-handed system. The local coordinates (x, y) can be computed using 


x= (R-— Ro) à and y = (R — Ro) j. 


Then we get 


h 2 z 
Vr =f [[Ro+iz+ 3y) dedy 
Sp 


h 
-4 riz) y)A 


h 
= BA 
P 


where (Z, y) are the centroidal coordinates of the area measured relative to the local 
axes. Similarly we have 


h y kj $ " gt 5 n 
VRR-— 5 J [tor + (Rot +7Ry)e+ (RoI + ĝRo)y + 
So 


(83 +33 )zy +20 2? 4- 33 y? ]dz dy 


h 1 1 D 1 1 
= z [RoR + (Ro? +2Ro)z + (Ro? +3 Ri] A+ 


where 
Agy = I? dx dy , Azy = ELZ pAg = J| «m 
S, So So 
The formula for V gg simplifies when Ro is chosen as the centroidal radius Rp. 
Then z = y = 0 so that 


h FDA: pop. a CAS P 
Var = Z[R, RA +ê ê Az, 33 Aj, + (ê) M 


with the quantities A, Ab Aby denoting reference to the centroidal axes. 
The analysis to compute polyhedron properties can now be completed using vec- 


tor algebra along with area property calculations of the type introduced earlier. To 
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define data for a particular polyhedron we provide vectors x, y, z containing global 
coordinates of all corners. We also employ a matrix named idface having a row 
dimension equal to the number of faces on the polyhedron and a column dimension 
equal to the largest number of corners on any face. Row 2 of idface consists of 
corner indices of the ?'th face with the row being padded with zeros on the right if 
necessary. Each face is traversed in the counterclockwise sense relative to the out- 
ward normal. Consider a figure showing a triangular block with a hole, having twelve 
corners and eight faces as shown in Figure 5.6. The required geometry descriptions 
are defined in example polhdrun. The results produced for this example are 


>> polhdrun; 


v = 15 

yo = 
0.0000 
2.6667 
1.3333 

vrr = 
5.0000 0.0000 0.0000 
0.0000 120.8333 60.4167 
0.0000 60.4167 40.8333 


161.6667 -0.0000 -0.0000 
-0.0000 45.8333 -60.4167 
-0.0000 -60.4167 125.8333 


These values can be easily verified by manual calculations. 
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Surface Plot of a General Polyhedron 


-2 


y-axis x axis 


Figure 5.6: Surface Plot of a General Polyhedron 
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Program polhdrun 


Q9. ec ES 20h ts da 


:. fu 


nction polhdrun 
Example: polhdrun 


This program illustrates the use of routine 
polhedrn to calculate the geometrical 
properties of a polyhedron. 


User m functions called: 
crosmat, polyxy, cubrange, pyramid, 
polhdplt, polhedrn 


x=[2 2222200000 0]-1; 
y=[0 44233044233]; 
z=[0 04112004112]; 
idface=[1 2 3 6 5 4 6 3; 
1 3 9 7 0 0 0 0; 
1 7 8 20 0 0 QO; 
28 9 3 0 0 0 0; 
7 912101112 9 8; 
41012 6 0 0 0 O0; 
4 51110 0 0 0 O0; 
5 61211 0 0 0 0] 


24: po 
s [v,rc,vrr,irr]-polhedrn(x,y,z,idface) 


lhdplt(x,y,z,idface,[1,1,1]); 


2: function [v,rc,vrr,irr]=polhedrn(x,y,z,idface) 


[v,rc,vrr,irr]=polhedrn(x,y,z,idface) 


This function determines the volume, 
centroidal coordinates and inertial moments 
for an arbitrary polyhedron. 


X,y,Z - vectors containing the corner 
indices of the polyhedron 

idface - a matrix in which row j defines the 
corner indices of the j’th face. 
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ax h Each face is traversed in a 

a3: h counterclockwise sense relative to 
aa: h the outward normal. The column 

as: h dimension equals the largest number 
46: h of indices needed to define a face. 
av h Rows requiring fewer than the 

as: h maximum number of corner indices are 
a9: h padded with zeros on the right. 

50: 4, 

5: V - the volume of the polyhedron 

sa: h rc - the centroidal radius 

53: A VII - the integral of R*R’*d(vol) 

s h irr - the inertia tensor for a rigid body 
55: % of unit mass obtained from vrr as 

56: % eye(3,3) *sum(diag(vrr))-vrr 

57: VA 

ss 4 User m functions called: pyramid 
TTÁ—^^^——— 


ai; Y=[x(:),y(:),z¢:)]; nf=size(idface,1); 

ex V=0; vr-0; vrr=0; 

es: for k-1:nf 

64 i=idface(k,:); i=i(find(i>0)); 

65: [u,ur,urr]-pyramid(r(i,:)); 

66: | V=Vtu; Vr-vrtur; vrr=vrrturr; 

ez: end 

os rc=vr/v; irr-eye(3,3)*sum(diag(vrr))-vrr; 


7; function [area,xbar,ybar,axx,axy,ayy]=polyxy(x,y) 


ma: ^ Llarea,xbar,ybar,axx,axy,ayyl-polyxy(x,y) 
um E a A A E E M E OE 


7: ^ This function computes the area, centroidal 
7s 4 coordinates, and inertial moments of an 
7»; ^ arbitrary polygon. 


80: p 

s: X,y - vectors containing the corner 
s2: % coordinates. The boundary is 

83: % traversed in a counterclockwise 
aa: h direction 

85: ^ 

s: 4 area - the polygon area 
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. 4 xbar,ybar - the centroidal coordinates 


: % axx - integral of x^2*dxdy 
| 4 axy - integral of xy*dxdy 
| 4 ayy - integral of y^2*dxdy 


; 4 User m functions called: none 


s n-1:length(x); ni-n*1; 

; x=[x(:);x(1)]; y=lyC:) 3s y@)]; 

; a=(x(n).*y(n1)-y(m) .*x(n1))’; 

; area-sum(a)/2; a6=6*area; 

; Xbar=a*(x(n)+x(n1))/a6; ybar-a*(y(n)*y(n1))/a6; 
; ayy=ax* (y(n) .*2+y(n) . y(n1) *y n1) .^2)/12; 

; axy=ax* (x (n) .*(2xy (n) *ty(n1)) *x(Qn1).* ; 


(2*y(n1)+y(n)))/24; 


; axx-a*(x(n).^2*x(n) .*x(n1) *x(n1).^2)/12; 


. function [v,vr,vrr,h,area,n]-pyramid(r) 


: 4 [v,vr,vrr,h,area,n]-pyramid(r) 


^ This function determines geometrical 

^ properties of a pyramid with the apex at the 
^ origin and corner coordinates of the base 

^ Stored in the rows of r. 


^ T - matrix containing the corner 
Sh coordinates of a polygonal base stored 
hy in the rows of matrix r. 

0 

h 
Av - the volume of the pyramid 
-h Vr - the first moment of volume relative to 
m the origin 
; 4 vrr - the second moment of volume relative 
P to the origin 
(hh - the pyramid height 
; 4 area - the base area 
An - the outward directed unit normal to 
Eh the base 


; 4 User m functions called: crosmat, polyxy 
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n 


QU og oc gc OG Gg og Gg GO Gc 


75: 


ONO Ae EO AEN esa: o 


a4 nS=size(r,1); 

; na-sum(crosmat (r,r([2:ns,1] , :22) ?/2; 
; area-norm(na); n-na/area; p-null(n?); 
a5; i=p(:,1); j=p(:,2); 

: if det([p,n])«0, j=-j; end; 

; ri=r(1,:); rr=r-ri(ones(ns,1),:); 
SX-rr*i; y-rr*j; 


[areat,xc,yc,axx,axy,ayyl-polyxy(x,y); 


; rc-ri?*xc*ityc*j; h-ri*n; 

3: v-h*area/3; vr=v*3/4*rc; 

; aXX-axx-area*xc^2; ayy-ayy-area*yc^2; 

; axy-axy-area*xc*yc; 

; Vrr-h/5*(area*rc*rc'*axx*i*i'tayy*j*j'-* 


axy*(i*j?*j*i^)); 


: function polhdplt(x,y,z,idface,colr) 


^ polhdplt(x,y,z,idface,colr) 


^ This function makes a surface plot of an 
^ arbitrary polyhedron. 


^ x,y,z - vectors containing the corner 
zh indices of the polyhedron 
. 4 idface - a matrix in which row j defines the 
2. 4 corner indices of the j'th face. 
x e Each face is traversed in a 
4: h counterclockwise sense relative to 
A the outward normal. The column 
c4 dimension equals the largest number 
m 4 of indices needed to define a face. 
s: h Rows requiring fewer than the 
» 4 maximum number of corner indices are 
(4 padded with zeros on the right. 
: 4 colr  - character string or a vector 
A defining the surface color 


; 4 User m functions called: cubrange 
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. if nargin<5, colr=[1 0 1]; end 

: hold off, close; nf-size(idface,1); 
: v=cubrange([x(:),y(:),z(¢:)],1.1); 

: for k=1:nf 


i-idface(k,:); i=i(find(i>0)); 
xi-x(i); yi=y(i); zi=z(i); 
fill3(xi,yi,zi,colr); hold on; 


; end 

s axis(v); grid on; 

; Xlabel(?x axis’); ylabel(’y axis’); 

; zlabel(’z axis’); 

; title(’Surface Plot of a General Polyhedron’) ; 
. figure(gcf); hold off; 


. function c=crosmat (a,b) 
LU 


s 4 c-crosmat(a,b) 


. 4 This function computes the vector cross 
: 4 product for vectors stored in the rows 
: 4 of matrices a and b, and returns the 
. 4 results in the rows of c. 

0 
oh 


3 4 User m functions called: none 
0 


; c2 [a(:,2) .*b(:,3)-a(:,3) .*bC:,2),... 


a(:,3).*b(:,1)-a(:,1) .*b(C:,3),... 
a(:,1).*b(:,2)-a(:,2) .*b(C:,12]; 


. 4 function range=cubrange (xyz, ovrsiz) 
» 4 See Appendix B 
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5.8 Evaluating Integrals Having Square Root Type Singularities 


Consider the problem of evaluating the following three integrals having square 
root type singularities at one or both ends of the integration interval: 


b b b 
f(x) f f(x) ) 
L= | ———drz , k= | Sad , B= | ——————ds. 
! I ^ vb — x i V (x — a) (b — x) 
The singularities in these integrals can be removed using substitutions x — a — 
t?, b—x=t?, and (x — a)(b — x) = (b + a)/2 + (b — a)/2 cos(t) which lead to 
vb—a b—a 
1-2 J fla+t®dt , b=2 / f(b — €) dt 
0 


These modified integrals can be evaluated using gequad or quadl by creating in- 
tegrands with appropriate argument shifts. Two integration functions quadgsqrt 
and quadlsqrt were written to handle each of the three integral types. Shown be- 
low is a program called sqrtquadtest which computes results for the case where 
f(x) = e*"*cos(vr) with constants u and v being parameters passed to the inte- 
grators using the varargin construct in MATLAB. Function quadgsqrt uses Gauss 
quadrature to evaluate 7, and I2, and uses Chebyshev quadrature [1] to evaluate 73. 
When f(x) is a polynomial, then taking parameter norder in function quadgsqrt 
equal to the polynomial order gives exact results. With norder taken sufficiently 
high, more complicated functions can also be integrated accurately. Function quadl- 
sqrt evaluates the three integral types using the adaptive integrator quadl, which 
accommodates f(x) of quite general form. The program shown below integrates the 
test function for parameter choices corresponding to |a, b, u,v] = [1,4,3,10] with 
norder=10 in quadgsqrt and tol=le-12 in quadlsqrt . Output from the program 
for this data case appears as comments at lines 14 thru 35 of sqrtquadtest. The 
integrators apparently work well and give results agreeing to fifteen digits. How- 
ever, quadlsqrt took more than four hundred times as long to run as quadgsqrt. 
Furthermore, the structure of quadgsqrt is such that it could easily be modified to 
accommodate a form of f(a) which returns a vector. 


5.8. Program Listing 


Singular Integral Program 


xı function [vg,tg,vL,tL,pctdiff]-sqrtquadtest 
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2 
: f 


2 
; a=1; b=4; u=3; v=10; 


[vg,tg,vL,tL, pctdiff]=sqrtquadtest 

This function compares the accuracy and 
computation time for functions quadgsqrt 

and quadlsqrt to evaluate: 
integral(exp(u*x)*cos(v*x)/radical(x), a<x<b) 
where radical(x) is sqrt(x-a), sqrt(b-x), or 
sqrt ((x-a)*(b-x)) 


Program Output 
>> sqrtquadtest; 


EVALUATING INTEGRALS WITH SQUARE ROOT TYPE 
SINGULARITIES AT THE END POINTS 


Function integrated: 
ftest(x,u,v)-exp(u*x) .*cos(v*x) 


a 


4 
u 1 


1 b 
3 V (0) 


Results from function gquadsqrt 


4.836504484e*003 -8.060993912e+003 -4.264510048e+003 


Computation time = 0.0159 sec. 


Results from function quadlsqrt 


4.836504484e*003 -8.060993912e+003 -4.264510048e+003 


Computation time = 7.03 sec. 
Percent difference for the two methods 


-3.6669e-012 -1.5344e-012 1.4929e-012 
>> 


The test function 
test-inline('exp(u*x).*cos(v*x)? ,?x? ,?u? ,? v’); 


Limits and function parameters 


: nloop=100; tic; 
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AT: 


for j-1:nloop 
vig-quadgsqrt(ftest,1,a,b,40,1,u,v); 
v2g-quadgsqrt(ftest,2,a,b,40,1,u,v); 
v3g-quadgsqrt(ftest,3,a,b,40,1,u,v); 


51: end 

s» vg=[vig,v2g,v3g]; tg=toc/nloop; 

ss disp? ?) 

sa: disp(? EVALUATING INTEGRALS WITH SQUARE ROOT TYPE?) 
s: disp(’ SINGULARITIES AT THE END POINTS’) 

ss disp? ?) 


s; disp(? Function integrated: ’) 
ss disp? ftest(x,u,v)-exp(u*x) .*cos(v*x) ?) 


. disp? ?) 
. disp([^a = ?,num2str(a)," b = ?,num2str(b)]) 
. disp([^u = ?,num2str(u)," v = ?,num2str(v)]) 
. disp ?) 


; dispC Results from function gquadsqrt’ ) 
; fprintf (°%17.9e 417.9e %17.9e\n’ ,vg) 
s disp(['Computation time = ’ ,num2str(tg),’ sec.’]) 


; tol=te-12; tic; 

. viL-quadlsqrt(ftest,1,a,b,tol,[],u,v); 
. v2L=quadlsqrt (ftest,2,a,b,tol, [],u,v); 
. v38L=quadlsqrt (ftest,3,a,b,tol, [],u,v); 
: VL=[viL,v2L,v3L]; tL=toc; 


: disp? 2) 

: dispC Results from function quadlsqrt’) 

s fprintf (C 417.9e 417.9e %17.9e\n’ ,vL) 

; disp([’ Computation time = ’,num2str(tL),’ sec.’]) 


; petdiff-100*(vg-vL)./vL; disp? ’) 
. disp(’Percent difference for the two methods’) 
; fprintf (°%13.4e %12.4e %12.4e\n’ ,pctdiff) 


. function v=quadgsqrt(... 


2 


. 4 v7quadgsqrt(func,type,a,b,norder,nsegs,varargin) 


func,type,a,b,norder,nsegs,varargin) 


. ^ This function evaluates an integral having a 
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05: 


20: 

; if nargin«6, nsegs-1; end; 

; if nargin<5, norder-50; end 
: Switch type 


GAUSS INTEGRATION WITH GEOMETRIC PROPERTY APPLICATIONS 


. ^ Square root type singularity at one or both ends 
: ^ of the integration interval a<x<b. Composite 

. ^ Gauss integration is used with func(x) treated 

. ^ as a polynomial of degree norder. 

. ^ The integrand has the form: 

. ^ func(x)/sqrt(x-a) if type==1. 

. ^ func(x)/sqrt(b-x) if type==2. 

. 4 func(x)/sqrt((x-a)*(b-x)) if type==3. 

. 4 The integration interval is subdivided into 

. 4 nsegs subintervals of equal length. 


3 ^ func  - a character string or function handle 
S, naming a function continuous in the 

[^ interval from x-a to x-b 
» ^ type - 1 if the integrand is singular at x-a 
ee 2 if the integrand is singular at x=b 
-h 3 if the integrand is singular at both 
2A x-a and x-b. 
- 4 a,b - integration limits with b>a 

^ norder - polynomial interpolation order within 

% each interval. Lowest norder is 20. 

^ nsegs - number of integration subintervals 


^ User m functions called: gcquad 


^ Reference: Abromowitz and Stegun, ’Handbook of 
% Mathematical Functions’, Chapter 25 


case 1 % Singularity at the left end. 
^ Use Gauss quadrature 
[dumy ,bp,wf]=gcquad(... 
^? 0, sqrt (b-a) ,norder+1,nsegs) ; 
t-atbp.^2; y=feval(func,t,varargin{:}); 
v-wf(:)?x*y(:)*2; 
case 2 % Singularity at the right end. 
^ Use Gauss quadrature 
[dumy ,bp,wf]=gcquad(... 
>? 0, sqrt (b-a) ,norder+1,nsegs) ; 
t-b-bp.^2; y=feval(func,t,varargin{:}); 
v-wf(:)?xy(C:)*2; 
case 3 % Singularity at both ends. 
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37: ^ Use Chebyshev integration 

38: n-norder; bpzcos(pi/(2*n*2)*(1:2:2*n*1)) ; 
39: cl=(bta)/2; c2=(b-a)/2; t-ci*c2*bp; 

40: y=feval(func,t,varargin{:}); 

ai: v-pi/(n*1)*sum(y); 

4» end 

43: 

a 


4: function v=quadlsqrt (fname, type,a,b,tol,trace,varargin) 


is 4 V=quadlsqrt (fname, type,a,b,tol,trace,varargin) 


5i ^ This function uses the MATLAB integrator quadl 
5: ^ to evaluate integrals having square root type 
5: ^ Singularities at one or both ends of the 

54 h integration interval a < x < b. 

5: ^ The integrand has the form: 

s: ^ func(x)/sqrt(x-a) if type==1. 

5: ^ func(x)/sqrt(b-x) if type==2. 

ss ^ func(x)/sqrt((x-a)*(b-x)) if type--3. 


59: VA 

o» ^ func  - the handle for a function continuous 
61: h from x=a to x=b 

o» ^ type  - 1 if the integrand is singular at x-a 
63: % 2 if the integrand is singular at x-b 
64: h 3 if the integrand is singular at both 
65: % x=a and x=b. 

o ^ a,b - integration limits with b > a 


os if nargin«6 | isempty(trace), trace-0; end 

o» if nargin<5 | isempty(tol), tol-1e-8; end 

7: if nargin<7 

"n.  varargin(i)]-type; vararginí2)-[a,b]; 

7z:  varargin(3)-fname; 

73: else 

7.  n-length(varargin); c-[a,b]; varargin{n+1}=type; 
z3: | vararginínt2]-2c; varargin{nt3}=fname; 

76: end 


7s if type==1 | type-- 

7: | V-2*quadl(Ofshift,O,sqrt(b-a),... 
80: tol,trace,vararginí:]); 

ai else 
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3: 8 


: f 
: 
: 
2 
. N= 
: C= 
3: a 


S 


:e 


1 
e 


v=quad1 (@fshift,0,pi,tol,trace,varargin{:}); 
nd 


unction u-fshift(x,varargin) 
u-fshift(x,varargin) 

This function shifts arguments to produce 
a nonsingular integrand called by quadl 
length(varargin); fname=varargin{N}; 


varargin{N-1}; type=varargin{N-2}; 
=c(1); b=c(2); ci-(b*a)/2; c2=(b-a)/2; 
witch type 


case 1, t-a*x.^2; case 2, t-b-x.^2; 
case 3, t-ci*c2*cos(x); 
nd 


if N>3, u=feval(fname,t,varargin{1:N-3}); 


lse, u=feval(fname,t); end 


function [val,bp,wf]=gcquad(func,xlow, 
xhigh ,nquad,mparts, varargin) 
See Appendix B 


195 


5.9 Gauss Integration of a Multiple Integral 


This integral can be changed into one with constant limits by the substitutions 


Gauss integration can be used to evaluate multiple integrals having variable limits. 
Consider the instance typified by the following triple integral 


bo(z) pa2(y,z) 
raf f a F(x,y, z) dx dy dz. 
bi(z) (y,z) 


Z= yt müs —l<u<l, 
Yy =bp+bmt, -1 <t <1, 
L=Ay+ams,-l<s<l 
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where 
| C27 C1 | 2 — C1 
Cp 2 > Cm = 2 ; 
b2 + by b2 — by 
bp = 2 D bm — 2 , 
à2 + a1 ag —01 
ap = 2 Ones 2 


The above integral becomes 


1 pl pl 
I= J / i Cmbmam f (s, t, u) ds dt du 
-1J-1J-1 


f(s, t,u) = F(ay + ams, bp + bmt, Cp + cu), 
am = Am(Y, Z) = Gm (by + bmt, Cp + Cm), 
bm = bm(z ) a Ta + Cmu). 


where 


Thus, the integral has the form 


1 pl pl 
I= l J J G(s, t, u) ds dt du 
-1 J—1 4-1 


G = Cmbmam f. 


Performing the integration over each limit using an n-point quadrature formula with 
weight factors w, and base points x, yields 


I= 5 5 5 WkWIJW,G (T1, Ly, Ek). 


k=1 J=1 :=1 


where 


A function allowing an integrand and integration limits of general form was devel- 
oped. An example is considered where the inertial moment of a sphere having unit 
radius, unit mass density, and centered at (0,0,0) is to be obtained about an axis 
through x = 2, y = 0, parallel to the z-axis. The related integral 


V1—z2 —y Ji-y-2 
rf | dd (x — 2)? + y?] dz dy dz 
y? = 


has a value of 887/15. Shown below is a function quadit3d and related limit and 
integrand functions. The function triplint(n) computes the ratio of the numerically 
integrated function to the exact result. The function specification triplint(20) yields 
a value of 1.000067. Even though the triple integration procedure is not computa- 
tionally very fast, it is nevertheless robust enough to produce accurate results when 
a sufficiently high integration order is chosen. 
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5.9.1 Example: Evaluating a Multiple Integral 


Triple Integration Program 


. function val-triplint (n) 


val-triplint (n) 
Triple integration example on inertial 
moment of a sphere. 


User m functions called: fsphere, bsi, bs2, 
asi, as2 


; if nargin--0, n=20; end 
. val=quadit3d(’fsphere’,[-1,1],’bs1’,’bs2’,... 


^as1?,?as2? ,n)/(88*pi/15) ; 


. function s = quadit3d(f,c,b1,b2,a1,a2,w) 


s = quadit3d(f,c,b1,b2,a1,a2,w) 


This function computes the iterated integral 


s = integral(... 
f(x,y,z), x=al..a2, y=b1..b2, z=c1..c2) 


where al and a2 are functions of y and z, b1 
and b2 are functions of z, and c is a vector 
containing constant limits on the z variable. 
Hence, as many as five external functions may 
be involved in the call list. For example, 
when the integrand and limits are: 


f = x.^2+y^2+z^2 
a2 = sqrt(4-y^2-z^2) 
al = -a2 

b2 = sqrt(4-z^2) 

bi = -b2 

c = [-2,2] 


Then the exact value is 128*pi/5. 
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The approximation produced from a 20 point 
Gauss formula is accurate within .007 percent. 


f 


ai,a2 


b1,b2 


S 


a function f(x,y,z) which must return 
a vector value when x is a vector, 

and y and z are scalar. 

integration limits on the x variable 
which may specify names of functions 
or have constant values. If al is a 
function it should have a call list 

of the form al(y,z). A similar form 
applies to a2. 

integration limits on the y variable 
which may specify functions of z or 
have constant values. 

a vector defined by c-[ci,c2] where 

ci and c2 are fixed integration 
limits for the z direction. 

this argument defines the quadrature 
formula used. It has the following 
three possible forms. If w is omitted, 
a Gauss formula of order 12 is used. 
If w is a positive integer n, a Gauss 
formula of order n is used. If w is an 
n by 2 matrix, w(:,1) contains the base 
points and w(:,2) contains the weight 
factors for a quadrature formula over 
limits -1 to 1. 


the numerically evaluated integral 


User m functions called:  gcquad 


n-12; 


; if nargin<7 
. ^ function gcquad generates base points 
. ^ and weight factors 


[dummy , x , W] -gcquad (^ ^ ,71,1,n,1); 


; elseif size(w,1)--1 & size(w,2)== 


n-w; [dummy,x,W]=gcquad(’’,-1,1,n,1); 
: else 

n-size(w,1); x-w(:,1); W-w(:,2); 
;: end 


; $720; cp=(c(1)+c(2))/2; cm=(c(2)-c(1))/2; 
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: for k-1:n 

zk-cp*cm*x(k); 

if ischar(bi1), Bi-feval(bi,zk); 
else, Bi-b1; end 


if ischar(b2), B2-feval(b2,zk); 
else, B2-b2; end 


Bp=(B2+B1)/2; Bm=(B2-B1)/2; sj=0; 


for j-1:n 
y j=Bpt+Bm*x (j) ; 
if ischar(a1), Al=feval(at,yj,zk); 
else, Ai-a1; end 


if ischar(a2), A2=feval(a2,yj,zk); 
else, A2-a2; end 


Ap=(A2+A1)/2; Am-(A2-A1)/2; 
fval-feval(f, AptAm*x, yj, zk); 


si-fval(:).?*W(:); sj=sjt+W(j)*Am*si; 
end 
s=s+W(k) *Bm*sj; 
; end 
s-cm*s; 
jJ——-—-2-2222222222222-22-22-22-2z222-2-2-2-2-2-2-2-2-2-2-2------ 
: function v=fsphere(x,y,z) 
% 
: 4 v=fsphere(x,y,z) 
VA AO O OE O OE E E OE E OE E E E E E 
:% Integrand. 
ENG eee ner RR 
v=(x-2).^2+y.^2; 
VA S SSS S SS SS SSS S SSS SSS SS SS SS SS SSS SSS SE== 
. function x=as1(y,z) 
2 
: 4 x-asi(y,z) 
teu asp HE, 
. 4 Lower x integration limit. 
(ENDE a DENS OE TUN IUE TERES 
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a x--sqrt(1i-y.^2-z.^2); 


35: 

3: function x-as2(y,z) 

3T: VA 

ss 4 x=as2(y,z) 

ERAI TUE EUM 

so: 4 Upper x integration limit. 


A1: yA d T TU CH. m cu oe ee ee oe 


4s x-8qrt(1-y.^2-z.^2); 


4; function y=bs1(z) 
48: VA 


: 4 Lower y integration limit. 


VA E A E E eee oo ee As ae see E ees 


En ce CD SED 
“< 
Il 
|] 
n 
Ne! 
H 
ct 
^ 
T 
N 
> 
N 
VY 


[9 


a 
e 
zx 


: function y=bs2(z) 
^ 


o o 


h QU Qt OG OQ OQ QG OQ QU oO GO 


o» 4 function [val,bp,wf]=gcquad(func,xlow,... 
70: h xhigh,nquad,mparts,varargin) 
7: ^ See Appendix B 
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Chapter 6 


Fourier Series and the Fast Fourier 
Transform 


6.1 Definitions and Computation of Fourier Coefficients 


Trigonometric series are useful to represent periodic functions. A function defined 
for —oo < x < œ has a period of 27 if f(x+27r) = f(x) for all x. In most practical 
situations, such a function can be expressed as a complex Fourier series 


f(x) = 5 ce”? where 1 = y—1. 
j—-—0o 


The numbers c;, called complex Fourier coefficients, are computed by integration as 


1 2n 


Cy (z)e "dx. 


2m Jo 
The Fourier series can also be rewritten using sines and cosines as 


oo 


f(z) = co + bp + c_;) cos(gx) + 2(c; — c-;) sin(jz). 
j=l 
Denoting 
a, = c,+c_, and b, = 2(c, — c.) 
yields 
1 oo 
f(x) = go + 5 a, cos(jx) + b, sin(yx) 


j—1 
which is called a Fourier sine-cosine expansion. This series is especially appealing 
when f(x) is real valued. For that case c_, = C, for all 7, which implies that co must 
be real and 
a, = 2 real(c;) , b, = —2 imag(c;) for 7 > 0. 


Suppose we want a Fourier series expansion for a more general function f(x) 
having period p instead of 27. If we introduce a new function g(a) defined by 


s) - f (£z) 
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then g(x) has a period of 2r. Consequently, g(x) can be represented as 


oo 


g(a) = YF ee". 


J=- 


From the fact that f(x) = g(2rx/p) we deduce that 


Jc eee 


j——00 


A need sometimes occurs to expand a function as a series of sine terms only, or as a 
series of cosine terms only. If the function is originally defined for 0 < x < 5, then 
making f(x) = —f(p — x) for § < x < p gives a series involving only sine terms. 
Similarly, if f(x) = --f(p — x) for § < x < p, only cosine terms arise. Thus we get 


f(x) = co + X (e;  e-,) cos(273x/p) if f(x) = f(p — 2), 


or 
oo 


Fæ) = 9 «(e — e) sin232/p) if f(x) = —f(p — 2). 
j=l 
When the Fourier series of a function is approximated using a finite number of terms, 
the resulting approximating function may oscillate in regions where the actual func- 
tion is discontinuous or changes rapidly. This undesirable behavior can be reduced 
by using a smoothing procedure described by Lanczos [60]. Use is made of Fourier 
series of a closely related function f (x) defined by a local averaging process accord- 
ing to 
. 1 sete 


fesz] foa 


A 
Xem 


where the averaging interval A should be a small fraction of the period p. Hence we 
write A = ap with a < 1. The functions f(x) and f(x) are identical as a — 0. 
Even for a > 0, these functions also match exactly at any point x where f (x) varies 
linearly between z — 3 and x + 4. An important property of f (x) is that it agrees 
closely with f(x) for small o but has a Fourier series which converges more rapidly 
than the series for f(x). Furthermore, from its definition, 


F = z d. ica 2mim/p = V ^ í2migm/p 
f(x) Pa Ja e dx pa: ĉe 
where ĉo = co and é, = c sin(13o)/ (13a) for 7 # 0. Evidently the Fourier coef- 
ficients of f(x) are easily obtainable from those of f(x). When the series for f(z) 
converges slowly, using the same number of terms in the series for f (x) often gives 
an approximation preferable to that provided by the series for f(x). This process is 
called smoothing. 
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6.1.1 Trigonometric Interpolation and the Fast Fourier Transform 


Computing Fourier coefficients by numerical integration is very time consuming. 
Consequently, we are led to investigate alternative methods employing trigonometric 
polynomial interpolation through evenly spaced data. The resulting formulas are the 
basis of an important algorithm called the Fast Fourier Transform (FFT) . Although 
the Fourier coefficients obtained by interpolation are approximate, these coefficients 
can be computed very rapidly when the number of sample points is an integer power 
of 2 or a product of small primes. We will discuss next the ideas behind trigonometric 
polynomial interpolation among evenly spaced data values. 

Suppose we truncate the Fourier series and only use harmonics up to some order 
N. We assume f(x) has period 27 so that 


N 
f(x) = 5 genn 
3=-N 


This trigonometric polynomial satisfies f (0) = f (27) even though the original func- 
tion might actually have a finite discontinuity at 0 and 27. Consequently, we may 
choose to use, in place of f (0), the limit as e — 0 of [f (e) + f (2r — €)]/2. 

It is well known that the functions e'7* satisfy an orthogonality condition for inte- 
gration over the interval 0 to 27. They also satisfy an orthogonality condition regard- 
ing summation over equally spaced data. The latter condition is useful for deriving a 
discretized approximation of the integral formula for the exact Fourier coefficients. 
Let us choose data points 


z,- (z)2,022€ QN - 


and write the simultaneous equations to make the trigonometric polynomial match 
the original function at the equally spaced data points. To shorten the notation we let 


nem eT /N 


and write 
N 
fr= Dp ct". 
J=—N 


Suppose we pick an arbitrary integer n in the range —N « n < N. Multiplying the 
last equation by t~*” and summing from k = 0 to 2N — 1 gives 


2N—1 2N-1 N 


5 fet” = DD p 5 cyt", 
k=0 


k=0 j=—N 
Interchanging the summation order in the last equation yields 


2N-1 N 2N—1 


DEL ELLEN 
k=0 


k=0 jJ=—N 
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where ¢ = e!0-)7/N | Summing the inner geometric series gives 
2N—1 _72N 
> ck = ere for ¢ #1, 
mu 2N for ¢ = 1. 


We find, for all k and n in the stated range, that 


£N = elem (k—n) mde 


Therefore we get 


2N-1 
M fat” -2Ne,-N«n«N. 
k=0 
In the cases where n = +N, the procedure just outlined only gives a relationship 


governing cy 4 c. y. Since the first and last terms cannot be computed uniquely, we 
customarily take N large enough to discard these last two terms and write simply 


1 2N-1 
ms —kn 
Cn = 3N 2. frt ,-N«n«N. 


This formula is the basis for fast algorithms (called FFT for Fast Fourier Transform) 
to compute approximate Fourier coefficients. The periodicity of the terms depending 
on various powers of e'7/ can be utilized to greatly reduce the number of trigono- 
metric function evaluations. The case where N equals a power of 2 is especially 
attractive. The mathematical development is not provided here. However, the related 
theory was presented by Cooley and Tukey in 1965 [21] and has been expounded in 
many textbooks [53, 96]. The result is a remarkably concise algorithm which can 
be comprehended without studying the details of the mathematical derivation. For 
our present interests it is important to understand how to use MATLAB’s intrinsic 
function for the FFT (fft). 

Suppose a periodic function is evaluated at a number of equidistant points ranging 
over one period. It is preferable for computational speed that the number of sample 
points should equal an integer power of two (n = 2). Let the function values for 
argument vector 

x — pín*(0:n-—1) 
be an array f denoted by 
f =] [fis f2 ; fa] 


The function evaluation fft( f) produces an array of complex Fourier coefficients 
multiplied by n and arranged in a peculiar fashion. Let us illustrate this result for 
n= 8. If 

f = [fixae ; fs] 


then fft( /) /8 produces 


c= co. C1, C2, C3, Cx, C3, C_2, c4]. 
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The term denoted by c. actually turns out to equal c4 + c_4, so it would not be used 
in subsequent calculations. We generalize this procedure for arbitrary n as follows. 
Let N = n/2 — 1. In the transformed array, elements with indices of 1,--- , N + 1 
correspond to cg,--- , cw and elements with indices of n,n — 1, — 2,--- , N + 
3 correspond to c.1,c-2,€-3,::: , CN. It is also useful to remember that a real 
valued function has c-n = conj(c,). To fix our ideas about how to evaluate a 
Fourier series, suppose we want to sum an approximation involving harmonics from 
order zero to order (nsum — 1). We are dealing with a real valued function defined 
by func with a real argument vector x. The following code expands func and sums 
the series for argument x using nsum terms. 


function fouval-fftaprox(func,period,nfft,nsum,x) 
fc-feval(func,period/nfft*(0:nfft-1)); 


fc-fft(fc)/nfft; fc(1)-fc(1)/2; 
w-2*pi/period*(0:nsum-1); 
fouval-2*real(exp(i*x(:)*w)*fc(:)); 


EE: SeSe 


6.2 Some Applications 


Applications of Fourier series arise in numerous practical situations such as struc- 
tural dynamics, signal analysis, solution of boundary value problems, and image 
processing. Three examples are given below that illustrate use of the FFT. The first 
example calculates Bessel functions and the second problem studies forced dynamic 
response of a lumped mass system. The final example presents a program for con- 
structing Fourier expansions and displaying graphical results for linearly interpolated 
or analytically defined functions. 


6.2.1 Using the FFT to Compute Integer Order Bessel Functions 


The FFT provides an efficient way to compute integer order Bessel functions 
Jn(x) which are important in various physical applications [119]. Function J,,() 
can be obtained as the complex Fourier coefficient of e'"? in the generating function 


described by 
e sin(0) _ > Jal "nu . 


Orthogonality conditions imply 


1 2T i 
Jn(x) = 2 i errs) 90) qg, 
0 
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Figure 6.1: Surface Plot for J,,(x) 


The Fourier coefficients represented by J,,(a) can be computed approximately with 
the FFT. The infinite series converges very rapidly because the function it represents 
has continuous derivatives of all finite orders. Of course, e*® *^(?) is highly oscilla- 
tory for large |x|, thereby requiring a large number of sample points in the FFT to 
obtain accurate results. For n < 30 and |x| < 30, a 128-point transform is adequate 
to give about ten digit accuracy for values of J;, (x). The following code implements 
the above ideas and plots a surface showing how Jn changes in terms of n and z. 
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MATLAB Example 


Bessel Function Program plotjrun 
: function plotjrun 
^ Example: plotjrun 


This program computes integer order Bessel 
^ functions of the first kind by using the FFT. 


^ User m functions required: jnft 


99 AzW ON c gv. ue Qoo. UR 
sx 


: x=0:.5:20; n-0:20; J=jnft(n,x); surf(x,n,J' 
10: title( Surface Plot For J_{n}(x)’); 

u: ylabel(?order n’), xlabel(’argument x’) 

12 Zlabel(?function value’), figure(gcf); 

13: print -deps plotjrun 


ce 


iz. function J=jnft(n,z,nft) 
1: 4 J-jnft(n,z,nft) 
2: ^ Integer order Bessel functions of the 


2: ^ first kind computed by use of the Fast 
23: 4 Fourier Transform (FFT). 


24: VA 

x; ^ n  - integer vector defining the function 
26: h orders 

o. h Z | - a vector of values defining the 

as: h arguments 

2: 4 nft - number of function evaluations used 
30: % in the FFT calculation. This value 
ai: % should be an integer power of 2 and 
32: % should exceed twice the largest 

33: % component of n. When nft is omitted 
34. h from the argument list, then a value 
35: % equal to 512 is used. More accurate 
36: % values of J are computed as nft is 
an % increased. For max(n) « 30 and 

38. % max(z) « 30, nft-256 gives about 

39: % ten digit accuracy. 

4 ^ J  - a matrix of values for the integer 
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a 4 order Bessel function of the first 


a2: h kind. Row position matches orders 
43: h defined by n, and column position 
aa: h corresponds to arguments defined by 
45: h components of z. 

46 VA 

a: h User m functions called: none. 

48 VA e A E aU CU CM E E EEE E SEE EE E E 
49: 

5: if nargin<3, nft=512; end; 

si; Jzexp(sin((0:nft-1)?* ... 

sx — (2*pi/nft))*(i*z(:). 1) /nft; 

ss J=fit(J); J=J(i+n,:). 

sa: if Edu c eens 

s;  J-real(J); 

5e; end 


6.2.2 Dynamic Response of a Mass on an Oscillating Foundation 


Fourier series are often used to describe time dependent phenomena such as earth- 
quake ground motion. Understanding the effects of foundation motions on an elastic 
structure is important in design. The model in Figure 6.2 embodies rudimentary as- 
pects of this type of system and consists of a concentrated mass connected by a spring 
and viscous damper to a base which oscillates with known displacement Y (t). The 
system is assumed to have arbitrary initial conditions y(0) = yo and y(0) = vo when 
the base starts moving. The resulting displacement and acceleration of the mass are 
to be computed. 

We assume that Y (t) can be represented well over some time interval p by a Four- 
ier series of the form 


oo 
ijt | 2nm 
Cn € > Wn = — 
n=—oo 


where c-n = conj(c,,) because Y is real valued. The differential equation governing 
this problem is 
mij + cj + ky = kY (t) + cY (t) = F(t) 


where the forcing function can be expressed as 
F(t) = 5 Cnlk + 1ew,]e""^* = kco + 2 real pE ee ) 


and 
fn = Cn(k + 100). 


The corresponding steady-state solution of the differential equation is representable 
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Figure 6.2: Mass System 


as 
oo 
ys(t) = y y, ent 
n-—-—oo 


where y-n = conj(y,,) since ys(t) is real valued. Substituting the series solution 
into the differential equation and comparing coefficients of e*”"* on both sides leads 


to 
Ca (k + cwn) 


nw J. pe 
k — mw? + cwn 


The displacement, velocity, and acceleration corresponding to the steady-state (also 
called particular) solution are 


Ys(t) = co + 2 real ps sem : 


nci 


Ys(t) = 2 real [5 ase!) ; 


n=1 
oo 
¥s(t) = —2 real (È den ; 
n=1 


The initial conditions satisfied by y, are 


ys(0) = co + 2 real (È n) , ¥s(0) = 2 real (È 23 


n=1 n=1 


Because these values usually will not match the desired initial conditions, the total 
solution consists of y(t) and y;,(t) which satisfies the homogeneous differential 
equation 

Min + Cyn + kyn = 0. 
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The solution is 


sıt Sot 
Un = ge + gae? 


where s; and s» are roots satisfying 
ms? - cs - k — 0. 


The roots are 


—c4- Vc? —4mk —c— Vc? —4mk 


81 — $2 — 


2m 2m 


Since the total solution is 
y(t) = ys(t) + un (t) 


the constants gı and g2 are obtained by solving the two simultaneous equations 


gi ga = y(0) — ys(0) , 5191 + 5292 = 3(0) — ds (0). 


The roots s; and sg are equal when c = 2y mk. Then the homogeneous solution 
assumes an alternate form given by (gı + got)e*’ with s = —c/(2m). In this special 
case we find that 


gı = y(0) — ys(0) , g2 = 9(0) — ys(0) — sg1. 


It should be noted that even though roots sı and s2 will often be complex numbers, 
this causes no difficulty since MATLAB handles the complex arithmetic automat- 
ically (just as it does when the FFT transforms real function values into complex 
Fourier coefficients). 

The harmonic response solution works satisfactorily for a general forcing function 
as long as the damping coefficient c is nonzero. A special situation can occur when 
c = 0, because the forcing function may resonate with the natural frequency of 
the undamped system. If c is zero, and for some n we have 4/k/m = 27n/p, a 
condition of harmonic resonance is produced and a value of zero in the denominator 
occurs when the corresponding yn is computed. In the undamped resonant case the 
particular solution grows like [te’“""], quickly becoming large. Even when c is small 
and 4/ k/m ~ 2mn/p, undesirably large values of yn can result. Readers interested 
in the important phenomenon of resonance can find more detail in Meirovitch [68]. 

This example concludes by using a base motion resembling an actual earthquake 
excitation. Seismograph output employing about 2700 points recorded during the 
Imperial Valley, California, earthquake of 1940 provided the displacement history for 
Figure 6.3. The period used to describe the motion is 53.8 seconds. A program was 
written to analyze system response due to a simulated earthquake base excitation. 
The following program modules are used: 
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runimpv | sets data values and generates graphical results 

fouaprox | generates Fourier series approximations for a general 
function 

imptp piecewise linear function approximating the Imperial 
Valley earthquake data 

shkbftss | computes steady-state displacement and acceleration 


for a spring-mass-dashpot system subjected to base 
motion expandable in a Fourier series 

hsmck computes the homogeneous solution for the spring- 
mass-dashpot system subjected to general initial con- 
ditions 


Numerical results were obtained for a system having a natural period close to one 
second (27/6 ~ 1.047) and a damping factor of 5 percent. The function imptp 
was employed as an alternative to the actual seismograph data to provide a concisely 
expressible function which still embodies characteristics of a realistic base motion. 
Figure 6.4 shows a plot of function imptp along with its approximation by a twenty- 
term Fourier series. The series representation is surprisingly good considering the 
fact that such a small number of terms is used. The use of two-hundred terms gives 
an approximation which graphically does not deviate perceptibly from the actual 
function. Results showing how rapidly the Fourier coefficients diminish in magni- 
tude with increasing order appear in Figure 6.5. The dynamical analysis produced 
displacement and acceleration values for the mass. Figure 6.6 shows both the total 
displacement as well as the displacement contributed from the homogeneous solution 
alone. Evidently, the steady-state harmonic response function captures well most of 
the motion, and the homogeneous part could probably be neglected without serious 
error. Figure 6.7 also shows the total acceleration of the mass which is, of course, 
proportional to the resultant force on the mass due to the base motion. 

Before proceeding to the next example, the reader should be sure to appreciate the 
following important fact. Once a truncated Fourier series expansion of the forcing 
function using some appropriate number of terms is chosen, the truncated series 
defines an input function for which the response is computed exactly. If the user 
takes enough terms in the truncated series so that he/she is well satisfied with the 
function it approximates, then the computed response value for y(t) will also be 
acceptable. This situation is distinctly different from the more complicated type of 
approximations occurring when finite difference or finite element methods produce 
discrete approximations for continuous field problems. Understanding the effects of 
grid size discretization error is more complex than understanding the effects of series 
truncation in the example given here. 
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Figure 6.7: Acceleration Due to Base Oscillation 


MATLAB Example 


Program runimpv 


: function runimpv 
^ Example: runimpv 


^ This is a driver program for the 
earthquake example. 


^ User m functions required: 
% fouaprox, imptp, hsmck, 
shkbftss, lintrp 


90- cepe m TOU CAP Ae BD Ics 
> 


e 
e 
ex 


u: % Make the undamped period about one 
: ^ second long 
13: M=1; k=36; 


i: h Use damping equal to 5 percent of critical 
c=.05*(2*sqrt (m*k)) ; 
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60 


= 


: ^ Choose a period equal to length of 
. ^ Imperial Valley earthquake data 
2: prd=53.8; 


2; nft-1024; tmin-0; tmax-prd; 

23: Ntimes=200; nsum-80; % ntimes-501; nsum-200; 
; tplt=linspace(0,prd,ntimes) ; 

s y20trm=fouaprox(’imptp’ ,prd,tplt,20) ; 

2: plot(tplt,y20trm;'-',tplt,imptp(tplt);'--'); 
27: Xlabel(?time, seconds’); 

2: ylabel(?unitized displacement’); 

2: title(’Result from a 20-Term Fourier Series’) 
30: figure(gcf); 

. disp( Press [Enter] to continue’); 

. dumy=input(’’,’s’); 

: ^ print -deps 20trmplt 


s 4 Show how magnitudes of Fourier coefficients 
36: 4 decrease with increasing harmonic order 


3: fcof-fft(imptp((0:1023)/1024,1))/1024; 

: clf; plot(abs(fcof(1:100))); 

; Xlabel(’harmonic order’); 

. ylabel(?coefficient magnitude’); 

; title([’Coefficient Magnitude in Base ? 


’Motion Expansion’]); figure(gcf); 


. disp(’Press [Enter] to continue’); 
s dumy=input(’’,’s’); 
. ^ print -deps coefsize 


; ^ Compute forced response 
. [t,ys,ys0,vs0,as]= 


shkbftss(m,c,k,’imptp’,prd,nft,nsum, 
tmin,tmax,ntimes) ; 


ss: ^ Compute homogeneous solution 
54: [t,yh,ah]= 


hsmck(m,c,k,-ysO,-vsO,tmin,tmax,ntimes); 


s h Obtain the combined solution 

s: Y=ys(:)+yh(:); a=as(:)+ah(:); 

: clf; plot(t,y,?-°,t,yh,?--?); 

. Xlabel(’time’); ylabel(?displacement?); 

; title(’Total and Homogeneous Response’) ; 

: legend(’Total response’ ,’ Homogeneous response’); 
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. figure(gcf); 

. disp( Press [Enter] to continue’); 
s dumy=input(’’,’s’); 

: print -deps displac; 


: clf; plot(t,a,?-’); 

. Xlabel(’time’); ylabel(’acceleration’) 

. title(? Acceleration Due to Base Oscillation’) 
. figure(gcf); print -deps accel 


s function y-fouaprox(func,per,t,nsum,nft) 


y-fouaprox(func,per,t,nsum,nft) 


Approximation of a function by a Fourier 


series. 


func 
per 


function being expanded 

period of the function 

vector of times at which the series 
is to be evaluated 

number of terms summed in the series 
number of function values used to 
compute Fourier coefficients. This 
Should be an integer power of 2. 

The default is 1024 


User m functions called: none. 


5 if nargin<5, nft-1024; end; 

; nsum-min(nsum,fix(nft/2)); 

. c=fft (feval (func, per/nft*(O:nft-1)))/nft; 
>. c(1)2c(1)/2; c=c(:); c=c(1:nsum) ; 

; W=2*pi/per*(O:nsum-1) ; 

; yz2*real(exp(i*t(:)*w)*c); 


; function ybase-imptp(t,period) 
: h 
: 4 ybase=imptp(t,period) 
2 
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€ 


39: t 
: t 
Dd 


3; 
=y 


: f 


si: % 
E 


This function defines a piecewise linear 
function resembling the ground motion of 
the earthquake which occurred in 1940 in 
the Imperial Valley of California. The 
maximum amplitude of base motion is 
normalized to equal unity. 


period - period of the motion 
(optional argument) 


t - vector of times between 
tmin and tmax 
ybase - piecewise linearly interpolated 


base motion 


User m functions called:  lintrp 


0 0 0o l?’; 
ft-tft(:); yft=yft(:); 
ft=tft(1:24); yft=yft(1:24); 
f nargin == 
tft-tft*period/max(tft); 

nd 

base-lintrp(tft,yft,t); 


unction [t,ys,ysO,vsO,as]-... 
shkbftss(m,c,k,ybase,prd,nft,nsum, 
tmin,tmax,ntimes) 


[t,ys,ysO,vsO,as]-... 
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5» h  XShkbftss(m,c,k,ybase,prd,nft,nsum, 

54: ^ tmin,tmax,ntimes) 

55: y EO QNI seen ET re D FO HUS UU eR Ir om ME 

5 ^ This function determines the steady-state 
5: ^ Solution of the scalar differential equation 
58: VA 

59: h m*y?^?(t) + c*y’(t) + k*y(t) = 

6o: % k*ybase(t) + cx*ybase’ (t) 

61: VA 


o» 4 where ybase is a function of period prd 
o» ^ which is expandable in a Fourier series 


65: 4 m,c,k - Mass, damping coefficient, and 
66: ^ spring stiffness 

67: ^ ybase - Function or vector of 

68: % displacements equally spaced in 
69: % time which describes the base 
70: h motion over a period 

n h prd - Period used to expand xbase in a 
74 Fourier series 

7a: ^ nft - The number of components used 
74 h in the FFT (should be a power 
75: h of two). If nft is input as 

76: h zero, then ybase must be a 

7: h vector and nft is set to 

78: h length (ybase) 

7: ^ nsum - The number of terms to be used 
80: % to sum the Fourier series 

ai: 4 expansion of ybase. This should 
82: % not exceed nft/2. 

s 4 tmin,tmax - The minimum and maximum times 
84 h for which the solution is to 

as: o be computed 

s: ^ t - A vector of times at which 

an ^ the solution is computed 

ss: ^ ys - Vector of steady-state solution 
89: h values 

o» ^ ys0,vs0 - Position and velocity at t=0 
ə: ^ as - Acceleration ys’’(t), if this 
92: h quantity is required 

93 ^ 

oa: h User m functions called: none. 

95: VA Rp Wo Kis. UE. UA AT ER EN p E D AS ESEE a RN ah DA A OA E AA. Gu irs I NA NUR ge 
96: 

ə: if nft== 
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nft-length(ybase); ybft=ybase(:) 


; else 


tbft-prd/nft*(0:nft-1); 
ybft-fft(feval(ybase,tbft))/nft; 
ybft-ybft(:); 


3: end 

: nsum-min(nsum,fix(nft/2)); ybft=ybft(1:nsum) ; 
5; W-2*pi/prd*(0:nsum-1); 

; t-tmin*(tmax-tmin)/(ntimes-1)*(0:ntimes-1)'; 
; etwcexp(i*t*w); w-w(:); 

. ysft=ybft .*(kti*c*w)./(ktw.*(i*c-m*w)); 

: ysft (1)=ysft(1)/2; 

; ys72*real(etw*ysft); ysO-2*real(sum(ysft)); 

; vs0=2*real (sum(ixw.*ysft)) ; 

; if nargout > 4 


ysft--ysft.*w.^2; as=2*real(etw*ysft) ; 
end 


: function [t,yh,ah]= ... 


hsmck(m,c,k,y0,v0,tmin, tmax,ntimes) 


: 4 ([t,yh,ah]=hsmck(m,c,k,y0,v0,tmin, tmax ,ntimes) 


; 4 Solution of 

2 m*yh''(t) + c*yh’(t) + k*yh(t) = 0 
s ^ Subject to initial conditions of 

A yh(0) = yO and yh’(0) = vO 


228s:  M,C,k - mass, damping and spring 
229: h constants 

230: 4 yO, vO - initial position and velocity 
231. 4 tmin,tmax - minimum and maximum times 
232. À ntimes - number of times to evaluate 
233: h solution 

234: h t - vector of times 

235: 4 yh - displacements for the 

236: h homogeneous solution 

237: ^ ah - accelerations for the 

238: h homogeneous solution 


; 4 User m functions called: none. 
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243: t^ tmin*t(tmax-tmin)/(ntimes-1)*(0:ntimes-1); 
24i r-Sqrt(c*c-4*m*k); 

245 if r~=0 

246: S1i-(-c*r)/(2*m); s2=(-c-r)/(2*m) ; 

27: g=[1,1;s1,s2]\Ly0;v0l; 

zs  yh=real(g(1)*exp(s1*t)+g(2) *exp(s2*t)) ; 
29: if nargout > 2 

250: ah-real(si*si*g(1)*exp(si*t)-* 

51: s2*s2*g (2) *exp(s2*t)) ; 
52: end 

5: else 

54 s=-c/(2*m); 
5; g1=y0; g2-v0-s*gil; yh-(gi*g2*t).*exp(s*t); 
s if nargout > 2 

57: ah=real (s*(2*g2t+s*gl+s*g2*t) .*exp(s*t)) ; 
258: end 


263: h function y-lintrp(xd,yd,x) 
26a: h See Appendix B 


6.2.3 General Program to Plot Fourier Expansions 


The final example in this chapter is a program to compute Fourier coefficients of 
general real valued functions and to display series with varying numbers of terms 
so that a user can see how rapidly such series converge. Since a truncated Fourier 
series is a continuous differentiable function, it cannot perfectly represent a discon- 
tinuous function such as a square wave. Near points where jump discontinuities 
occur, Fourier series approximations oscillate [18]. The same kind of behavior oc- 
curs less seriously near points of slope discontinuity. Adding more terms does not 
cure the problem at jump discontinuities. The behavior, known as Gibbs phenom- 
enon, produces approximations which overshoot the function on either side of the 
discontinuity. Illustrations of this behavior appear below. 

A program was written to expand real functions of arbitrary period using Fourier 
series approximations computed with the FFT. A piecewise linear function can be 
specified interactively by giving data points over a period. Alternatively, a function 
which is user defined can be employed. For instance, a function varying like a sine 
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curve with the bottom half cut off would be 


function y=chopsine (x, period) 


y=sin(pi*x/period) .* (x<period) 


The program consists of the following functions. 


fouseris | main driver 
sine example for exact function input 
lintrp function for piecewise linear interpolation 


fousum | sum areal valued Fourier series 
read reads several data items on one line 


Comments within the program illustrate how to input data interactively. Details of 
different input options can be found by executing the program. 

Let us see how well the FFT approximates a function of period 3 defined by piece- 
wise linear interpolation through (x, y) values of (0,1), (1,1), (1,—1), (2.-1), (3,1), 
and (4,0). The function has jump discontinuities at x = 0, r = 1, and x = 4. 
A slope discontinuity also occurs at x = 3. Program results using a twenty-term 
approximation appear in Figure 6.8. Results produced by 100- and 250-term series 
plotted near z — 1 are shown in Figures 6.9 and 6.10. Clearly, adding more terms 
does not eliminate the oscillation. However, the oscillation at a jump discontinuity 
can be reduced with the Lanczos smoothing procedure. Results for a series of 250 
terms smoothed over an interval equal to the period times 0.01 appear in Figure 6.11. 
The oscillation is reduced at the cost of replacing the infinite slope at a discontinuity 
point by a steep slope of fifty-to-one for this case. Figure 6.12 shows a plot produced 
using an exact function definition as indicated in the second program execution. The 
reader may find it instructive to investigate how well Fourier series converge by run- 
ning the program for other function choices. 
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Figure 6.8: Fourier Series for Harmonics up to Order 20 
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Figure 6.9: Fourier Series for Harmonics up to Order 100 
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Fourier Series for Harmonics up to Order 250 
1.5 T T T 


0.5r 


y axis 
o 
T 


Ire ETE ee ee ee M 


-1.5 - L 
0.9 0.95 1 1.05 1.1 1.15 
x axis 


Figure 6.10: Fourier Series for Harmonics up to Order 250 
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Figure 6.11: Smoothed Fourier Series for Harmonics up to Order 250 
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Fourier Series for Harmonics up to Order 250 
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Figure 6.12: Exact Function Example for Harmonics up to Order 20 
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Examples of Fourier Series Expansions 
Output for Piecewise Linear Example 


>> fouseris 


FOURIER SERIES EXPANSION FOR A PIECEWISE LINEAR OR 
ANALYTICALLY DEFINED FUNCTION 


Input the period of the function 
?»4 


Input the number of data points to define the function 
by piecewise linear interpolation (input a zero if the 
function is defined analytically by the user). 

?» 6 


Input the x,y values one pair per line 


? » 0,1 
2S ol 
>? > 1,-1 
? > 2,-1 
eS 0341 
? > 4,0 


To plot the series input xmin, xmax, and the highest 

harmonic not exceeding 255 (input 0,0,0 to stop) 
(Use a negative harmonic number to save your graph) 
? > 0,4,20 


To plot the series smoothed over a fraction of the 
period, input the smoothing fraction 

(give 0.0 for no smoothing). 

? > 0 


Press RETURN to continue 


To plot the series input xmin, xmax, and the highest 

harmonic not exceeding 255 (input 0,0,0 to stop) 
(Use a negative harmonic number to save your graph) 
? > 0,0,0 

Output for Analytically Defined Example 


>> fouseris 
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FOURIER SERIES EXPANSION FOR A PIECEWISE LINEAR OR 
ANALYTICALLY DEFINED FUNCTION 


Input the period of the function 
? » pi/2 


Input the number of data points to define the function 
by piecewise linear interpolation (input a zero if the 
function is defined analytically by the user). 

? > 0 


Select the method used for exact function definition: 


1 <=> Use an existing function with syntax defined by 
the following example: 


function y=sine(x,period) 


oe oe 


y-gine(x,period) 


oe 


This function specifies all or part of 
a sine wave. 


x - vector of argument values 
period - period of the function 
y - vector of function values 


oe oe oe oe oe oe oe oe 


User m functions called: none 


oe 
l 
l 
l 
l 
l 
l 
| 
l 
| 
| 
l 
| 
l 
| 
l 
| 
| 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 


y=sin(rem(x,period)); 


or 


2 <=> Use a one-line character string definition 
involving argument x and period p. For example a sine 
wave with the bottom cut off would be defined by: 
sin(x*2*pi/p).*(x«p/2) 


1 or 2 ? > 1 


Enter the name of your function 
? > sine 


To plot the series input xmin, xmax, and the highest 
harmonic not exceeding 255 (input 0,0,0 to stop) 
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(Use a negative harmonic number to save your graph) 
? > 0,pi,-20 


To plot the series smoothed over a fraction of the 
period, input the smoothing fraction 

(give 0.0 for no smoothing). 

? > 0 


Give a file name to save the current graph > 
exactplt 


Press RETURN to continue 


To plot the series input xmin, xmax, 


harmonic not exceeding 255 (input 0,0,0 to stop) 
(Use a negative harmonic number to save your graph) 
? > 0,0,0 


Fourier Series Program fouseris 


pá 


a: h 
a: h 
ah 
5: h 


function fouseris 


Example: fouseris 

This program illustrates the convergence rate 
of Fourier series approximations derived by 
applying the FFT to a general function which 
may be specified either by piecewise linear 
interpolation in a data table or by 
analytical definition in a function given by 
the user. The linear interpolation model 
permits inclusion of jump discontinuities. 
Series having varying numbers of terms can 
be graphed to demonstrate Gibbs phenomenon 
and to show how well the truncated Fourier 
series represents the original function. 
Provision is made to plot the Fourier series 
of the original function or a smoothed 
function derived by averaging the original 
function over an arbitrary fraction of the 
total period. 


User m functions required: 
fousum, lintrp, inputv, sine 
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and the highest 


s 4 The following parameters control the number 
2: 4 of fft points used and the number of points 
2: ^ used for graphing. 

2: nft=1024; ngph-1001; nmax-int2str(nft/2-1); 


. fprintf(’\nFOURIER SERIES EXPANSION FOR’); 
. fprintf(’? A PIECEWISE LINEAR OR’); 

: fprintf C Wn ANALYTICALLY DEFINED ?); 
. fprintf CFUNCTIONNn?); 


s fprintf(’\nInput the period of the function in?); 

36: period=input(’? > ?); 

37: X£c=(period/nft)*(O:nft-1)’; 

ss fprintf(’\nHow many points define the function’); 

. fprintf(’\nby piecewise linear interpolation?’) ; 

; fprintf(’\n(Give a zero for analytical definition) \n’) 
. nd=input(’> ? ?); 

. if nd > 0, xd=zeros(nd,1); yd=xd; 


fprintf(’\nInput the x,y values one ’); 
fprintf(’pair per line\n’); 


for j-1:nd 
[xd(j) ,yd(j)]=inputv(’> ? 7); 
end 


. ^ Use nft interpolated data points to 
50: ^ compute the fft 


yfc-lintrp(xd,yd,xfc); c-fft(yfc); 


5» else 


fprintf(’\nSelect the method for ’); 
fprintf(’analytical function definition: Wn?); 
fprintf(’\n1l <=> Use an existing function ’); 
fprintf(’with syntax of the form:’); 
fprintf(’\nfunction y=funct(x,period), or \n’); 
fprintf([’\n2 <=> Give a character string ’,... 
^in argument x and period p.’]) 
fprintf([’\n(Such as: sign(sin(2*pi*x/p)) ?... 
^to make a square wave)\n’]) 
nopt=input(’Enter 1 or 2 ? > 7); 
if nopt -- 
fprintf(’\nEnter the name of your ?); 
fprintf(’function\n’) ; 
fnam=input(’> ? ’,’s’); 
yfc=feval(fnam,xfc,period); c=fft(yfc); 
else 
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69: 
70: 
71: 
T2: 
73: 
74: 
75: 
76: 
T: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86: 


fprintf(’\nInput the one-line definition’); 
fprintf(’ in terms of x and p\n’); 
strng=input(’> ? ’,’s’); 
X-Xfc; p=period; 
yfc=eval(strng); c=fft(yfc); 
end 
end 


while 1 

fprintf(’\nTo plot the series input xmin,’); 
fprintf(’ xmax, and the highest’); 
fprintf([? \nharmonic not exceeding ’, 

nmax,’ (press [Enter] to stop)’ D; 
fprintf C \n (Use a negative harmonic number’); 
fprintf (°? to save your graph)\n’); 
[xl,xu,nh]=inputv(’> ? ?); 
if isnan(xl), break; end 
pltsav-(nh < 0); nh=abs(nh) ; 
xtmp=x1+((xu-x1) /ngph) * (0: ngph) ; 
fprintf(’\nTo plot the series smoothed ’); 
fprintf(’over a fraction of the’); 
fprintf(’\nperiod, input the smoothing ?); 
fprintf(’fraction’) ; 
fprintf(’\n(give 0.0 for no smoothing).\n’); 
alpha=input(’> ? ?); 
yfou=fousum(c,xtmp, period,nh, alpha) ; 
xxtmp-xtmp; idneg=find(xtmp<0) ; 
xng=abs (xtmp(idneg) ) ; 
xxtmp (idneg)=xxtmp(idneg) + 

period*ceil (xng/period) ; 
if nd>0O 
yexac-lintrp(xd,yd,rem(xxtmp,period)); 

else 


if nopt -- 
yexac-feval(fnam,xtmp,period); 
else 
x-xxtmp; yexac-eval(strng); 
end 
end 
in-int2str(nh); 
if alpha -- 


titl-[' Fourier Series for Harmonics ’ 
^up to Order ’,in]; 
else 
titl=[’Smoothed Fourier Series for ’ 
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'Harmonics up to Order ’,in]; 
end 
clf; plot(xtmp,yfou,'-',xtmp;yexac,?--!); 
ylabel(’y axis’); xlabel(’x axis’); zoom on 
title(titl); grid on; figure(gcf); disp? ’); 
disp(’You can zoom in with the mouse button.’) 
input(?You can press [Enter] to continue. ’,’s’); 
if pltsav 
disp(^ °) 
filnam=input([’Give a file name to’ .. 
'save the current graph > ? ’],’s’); 
if length(filnam) » O 
eval([’print -deps ?,filnam]); 
end 


33: function y-sine(x,period) 
34 ^ yY=Sine(x, period) 


uU Sm! "Ub er Oe: NIU UE 


QU OU QU o qg o OG 9 GC 


e 


uu deem IONS qu 

36: 4 Function for all or part of a sine wave. 

3: h X,period - vector argument and period 
A y - function value 


hh 


: y=sin(rem(x,period)); 


. function yreal=fousum(c,x,period,k,alpha) 
» ^ yreal = fousum(c,x,period,k,alpha) 


; 4 Sum the Fourier series of a real 
; 4^ valued function. 


h x - The vector of real values at 

5 which the series is evaluated. 

A v6 - A vector of length n containing 
% Fourier coefficients output by 

A the fft function 

^ | period - The period of the function 

A. K - The highest harmonic used in 

% the Fourier sum. This must 
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so: % not exceed n/2-1 


o» ^ | alpha - If this parameter is nonzero, 
61 ^ the Fourier coefficients are 

62: % replaced by those of a function 
63: % obtained by averaging the 

64 h original function over alpha 

65: % times the period 

o h | yreal - The real valued Fourier sum 

67: h for argument x 

68: ^ 


o» ^ The Fourier coefficients c must have been 
7. ^ computed using the fft function which 

n. h transforms the vector [y(1),...,y(n)] into 
7z: h an array of complex Fourier coefficients 
75 ^ which have been multiplied by n and are 
va: h arranged in the order: 


75: 4, 

76: h [c(O) ,c(1),...,c(m/2-1) ,c(m/2), 

T7: h c(-n/2+1),...,c(-1)]. 
zs: h 


7: ^ The coefficient c(n/2) cannot be used 

s» ^ Since it is actually the sum of c(n/2) and 
si: ^ c(-n/2). For a particular value of n, the 
sz: ^ highest usable harmonic is n/2-1. 


s: 4 User m functions called: none 


a X7x(:); n-length(c); 

s: if nargin <4, k-n/2-1; alpha-0; end 

s: if nargin «5, alpha-0; end 

ə: if nargin «3, period-2*pi; end 

ə: L=period/2; k-min(k,n/2-1); th-(pi/L)*x; 
ə: i-sqrt(-1); z-exp(i*th); 

o» y=c(k+1)*ones(size(th)); pa=pi*alpha; 
ə: 1f alpha > 0 

9: jj=(1:k)’; 

9: c(jj+1)=c(jj+1).xsin(jj*pa)./(jj*pa); 
o7: end 

os for j=k:-1:2, y=c(j)t+y.*z; end 

ə: yreal=real(c(1)+2*y.*z)/n; 


3 ^ function y-lintrp(xd,yd,x) 
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; 4 See Appendix B 


. 4 function varargout-inputv (prompt) 
; 4 See Appendix B 
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Chapter 7 


Dynamic Response of Linear Second Order 
Systems 


7.4 Solving the Structural Dynamics Equations for Periodic 
Applied Forces 
The dynamics of a linear structure subjected to periodic forces obeys the matrix 


differential equation B l 
MX+CX+KX = F(t), 


with initial conditions 


X(0) = Do , X(0) = Vo. 
The solution vector X (t) has dimension n and M, C, and K are real square matrices 
of order n. The mass matrix, M, the damping matrix, C, and the stiffness matrix, 
K, are all real. The forcing function F(t), assumed to be real and having period L, 
can be approximated by a finite trigonometric series as 


N 
F(t)= 5 cy € ^** where wp = 2rk/L 
k=—N 


and 2 = y —1. The Fourier coefficients c; are vectors that can be computed using 
the FFT. The fact that F(t) is real also implies that c_;, = conj(c;,,) and, therefore, 


F(t) =co +2 real (>: ae) 


k=1 


The solution of the differential equation is naturally resolvable into two distinct parts. 
The first is the so called particular or forced response which is periodic and has the 
same general mathematical form as the forcing function. Hence, we write 


Xp = »» Xpert = Xo +2 real (>: xe] 


k——n k=1 


Substituting this series into the differential equation and matching coefficients of 
ert on both sides yields 


Xy = (K — wM + wxyC) ley. 
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The particular solution satisfies initial conditions given by 


TL 


X,(0) = Xo +2 real » a) and X,(0) = 2 real po en ; 


k=1 k=1 


Since these conditions usually will not equal the desired values, the particular so- 
lution must be combined with what is called the homogeneous or transient solution 
Xp, where 

MX), + eX, T KX), =0, 


with 
X1(0) = Do — Xp(0) , Xn(0) = Vo — X,(0). 


The homogeneous solution can be constructed by reducing the original differential 
equation to first order form. Let Z be the vector of dimension 2n which is the 
concatenation of X and X = V. Hence, Z = [X; V] and the original equation of 


motion is 


dZ 
— = AZ + P(t 
a + P(t) 
where 
0 I 0 
ASJ EMAK Fr anum n 


The homogeneous differential equation resulting when P — 0 can be solved in terms 
of the eigenvalues and eigenvectors of matrix A. If we know the eigenvalues A ; and 
eigenvectors U; satisfying 


AU, =X,U,, 1 <3 < 2n, 


then the homogeneous solution can be written as 


2n 
Š wt 
Z= 1 aUe 
J=1 


The weighting coefficients z, are computed to satisfy the desired initial conditions 
which require 


Xo — X>p(0) 
Uis Us, , Uo : = .Pp 
[ 1, 42; » V2 ] | m 
Z2n 
We solve this system of equations for z1, ---, Z2n and replace each U, by z,U,. Then 


the homogeneous solution is 


Xy = 5 U,(1 : n)e^t 
j=l 
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where U,(1 : n) means we take only the first n elements of column 3. 

In most practical situations, the matrix C is nonzero and the eigenvalues A1, ---, 
Aon have negative real parts. Then the exponential terms e ^+ all decay with increas- 
ing time, which is why X; is often known as the transient solution . In other cases, 
where the damping matrix C is zero, the eigenvalues A , are typically purely imagi- 
nary, and the homogeneous solution does not die out. In either instance, it is often 
customary in practical situations to ignore the homogeneous solution because it is 
usually small when compared to the contribution of the particular solution. 


7.1.1 Application to Oscillations of a Vertically 
Suspended Cable 


Let us solve the problem of small transverse vibrations of a vertically suspended 
cable. This system illustrates how the natural frequencies and mode shapes of a 
linear system can be combined to satisfy general initial conditions on position and 
velocity. 

The cable in Figure 7.1 is idealized as a series of n rigid links connected at fric- 
tionless joints. Two vectors, consisting of link lengths |£1, £5, -+ , Zn] and masses 
[m4 , ma, -- , My] lumped at the joints, characterize the system properties. The ac- 
celerations in the vertical direction will be negligibly small compared to transverse 
accelerations, because the transverse displacements are small. Consequently, the ten- 
sion in the chain will remain close to the static equilibrium value. This means the 
tension in link 2 is 


T, — gb, where b, — pe 
j= 
We assume that the transverse displacement y, for mass m, is small compared to 
the total length of the cable. A free body diagram for mass 2 is shown in Fig- 
ure 7.2. The small deflection angles are related to the transverse deflections by 
0,414 = (Yi — Yr) 6441 and 0, = (y, — Y.-1) /&.. Summation of forces shows 
that the horizontal acceleration is governed by 


mj, = G(dr41/Lr41) Qaa — Yr) — 9(5/6) (Ye — 1) 
= CULO CAL Y1 E g(b./ EE bia 5i) RH G(br41/br41)Yr41- 
In matrix form this equation is 


MY - KY 20 


where M is a diagonal matrix of mass coefficients and K is a symmetric tridiagonal 
matrix. The natural modes of free vibration are dynamical states where each element 
of the system simultaneously moves with harmonic motion of the same frequency. 
This means we seek motions of the form Y = Ucos(wt), or equivalently Y = 
U sin(wt), which implies 


KU, = A,MU, where A, = w? forl<jg<n. 
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Figure 7.1: Transverse Cable Vibration 


Solving the eigenvalue problem (M "1 K)U = AU gives the natural frequencies 
Q1,::* , Wn and the modal vectors U;,--- , Un. The response to general initial con- 
ditions is then obtained by superposition of the component modes. We write 


Y= 5 cos(w,t)U,c, + sin(w,t)U,d,/w, 
j=l 


where the coefficients c,,--- ,Cn and d,,--- , dj, (not to be confused with Fourier 
coefficients) are determined from the initial conditions as 


Cy 

[Ui go Gals = Y(0), c=U~'Y(0), 
Cn 
di 

[Pine sU] [s —Y(0),d—U-!Y(0). 
dn 


The following program determines the cable response for general initial conditions. 
The natural frequencies and mode shapes are computed along with an animation of 
the motion. 

The cable motion produced when an initially vertical system is given the same 
initial transverse velocity for all masses was studied. Graphical results of the analysis 
appear in Figures 7.3 through 7.6. The surface plot in Figure 7.3 shows the cable 
deflection pattern in terms of longitudinal position and time. Figure 7.4 shows the 
deflection pattern at two times. Figure 7.5 traces the motion of the middle and the 
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Tii = gbi+1 


Figure 7.2: Forces on 2’th Mass 


free end. At t — 1, the wave propagating downward from the support point is about 
halfway down the cable. By t = 2, the wave has reached the free end and the cable 
is about to swing back. Finally, traces of cable positions during successive stages of 
motion appear in Figure 7.6. 
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Surface Showing Cable Deflection 


transverse deflection 


time 


y axis 


Figure 7.3: Surface Showing Cable Deflection 


Cable Transverse Deflection at t = 1 andt = 2 
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Figure 7.4: Cable Transverse Deflection at t = 1 and t = 2 
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Position versus Time for the Cable Middle and End 
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Figure 7.5: Position Versus Time for the Cable Middle and End 


Trace of Linearized Cable Motion 


Figure 7.6: Trace of Cable Motion 
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MATLAB Example 


Program cablinea 


Q9 AER OU. ue Qoo. Us 


e 


25: 
. dsp=zeros(n,1); vel=ones(n,1); 
2: tmin=0; tmax=10; ntim-30; 


; function cablinea 


^ Example: cablinea 


^ This program uses modal superposition to 

^ compute the dynamic response of a cable 

^ suspended at one end and free at the other. 
^ The cable is given a uniform initial 

^ velocity. Time history plots and animation 
^ of the motion are provided. 


; ^ User m functions required: 
mA cablemk, udfrevib, canimate 


. ^ Initialize graphics 
. hold off; axis(’normal’); close; 


: ^ Set physical parameters 
. n-30; gravty-1.; masses-ones(n,1)/n; 
: lengths-ones (n, 1) /n; 


;: 4 Obtain mass and stiffness matrices 
2: [n, k] »cablemk(masses,lengths,gravty); 


. ^ Assign initial conditions & time limit 


%, for solution 


2: ^ Compute the solution by modal superposition 
30: [t,u,modvc,natfrq]-... 


udfrevib(m,k,dsp,vel,tmin,tmax,ntim); 


. ^ Interpret results graphically 

; nti-sum(t«-tmin); nt2-sum(t«-tmax); 
; ue [zeros (ntim, 1) ,u] ; 

3: y=cumsum (lengths); y=[0;y(:)]; 


3: 4 Plot deflection surface 
» dispC ’), dispC TRANSVERSE MOTION OF A CABLE’) 
. surf(y,t,u); xlabel(’y axis’); ylabel(’time’); 
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; zlabel(’transverse deflection’); 

; title(’Surface Showing Cable Deflection’); 
. colormap(’default’), view([30,30]); figure(gcf) ; 
. disp([’Press [Enter] to see the cable ’, 


'position at two times’]) 


. pause, %print -deps surface 


: ^ Show deflection configuration at two times 
; 4 Use closer time increment than was used 
5: ^ for the surface plots. 

si. Mtim=4*ntim; 

s: [tt,uu,modvc,natfrq]=... 


udfrevib(m,k,dsp,vel,tmin,tmax,mtim); 


s4: uu- [zeros (mtim,1) ,uu] ; 

5 tpl=.1*tmax; tp2=.2*tmax; 

s: Sl=num2str(tp1); s2=num2str(tp2) ; 

st: npl=sum(tt<=tpl); np2=sum(tt<=tp2) ; 
ss ul=uu(npl,:); u2=uu(np2,:); 

: yp=flipud(y(:)); ym=max(yp) ; 

: plot (u1,yp,’-?,u2,yp,?--’); 

. ylabel(’distance from bottom’); 

. xlabel(’transverse displacement’) ; 

: title([’Cable Transverse Deflection ’ 


ut t = ’,81,’ and t = ’,s2]); 


s legend(’t = 1’, ’t = 2’); 


; xm=.2*max([ul(:);u2¢:)]); 

; ntxt-int2str(n); n2=1+fix(n/2); 

. Str-strvcat(... 

: "The cable was initially vertical and was’,... 
: ° given a uniform transverse velocity.’,... 

. PA ?,ntxt,? link model was used.’]); 

. text (xm,.9*ym,str), figure(gcf); 

. disp([ Press [Enter] to show the time ’,... 

s ?'response at the middle and free end’]) 

: pause, %print -deps twoposn 


. ^ Plot time history for the middle and the end 
: clf; plot(tt,uu(:,n2),?--°,tt,uu(:,n+1),?-?°); 

; Xlabel(?dimensionless time’); 

. ylabel(’transverse displacement’) ; 

; title([’Position versus Time for the ’ 


^Cable Middle and End’]) 


: legend C Midpoint?,"Lower end’); 
. figure(gcf); 
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95: 


. function [m,k]-cablemk(masses,lngths,gravty) 


. disp( Press [Enter] for a motion trace’) 
. pause, %print -deps 2timhist 


. ^ Plot animation of motion history 

. clf; canimate(y,u,t,0,.5*max(t),1); 

. print -deps motntrac 

. disp( Press [Enter] to finish’), pause, close; 


: ^ [Im,k]2cablemk(masses,lngths,gravty) 


. 4^ Form the mass and stiffness matrices for 
; 4 the cable. 


; 4 masses - vector of masses 

. 4 1ngths - vector of link lengths 

4 gravty - gravity constant 

; ^ m,k - mass and stiffness matrices 


; m=diag (masses) ; 

: b=flipud(cumsum(flipud(masses(:))))* 
gravty./lngths; 

; n=length (masses); k-zeros(n,n); k(n,n)-b(n); 

: for i-1:n-1 
k(i,i)=b(i)+b(i+1); k(i,i+1)=-b(i+1); 
k(i+1,i)=k(i,i+1); 

. end 


: function [t,u,mdvc,natfrq]-... 


udfrevib(m,k,u0,vO,tmin,tmax,nt) 


: 4 [t,u,mdvc,natfrql- 
H udfrevib(m,k,u0,v0,tmin,tmax,nt) 


:% This function computes undamped natural 
: 4 frequencies, modal vectors, and time response 
: 4 by modal superposition. The matrix 
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3: ^ differential equation and initial conditions 
0 
32: ^ are 


33: h 

34: h mu? +ku=0, u(0) = u0, u?’ (0) = vO 
35: VA 

3: 4 m,k - mass and stiffness matrices 
37: ^ u0,vO - initial position and velocity 
38: h vectors 

3: 4 tmin,tmax - time limits for solution 

40: % evaluation 

a: 4 nt - number of times for solution 
axo t - vector of solution times 

as Au - matrix with row j giving the 
aa: h system response at time t(j) 
45: ^ mdvc - matrix with columns which are 
46: h modal vectors 

az. h natfrq - vector of natural frequencies 
as: h 


4: 4 User m functions called: none. 


z3 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


M 


^ Call function eig to compute modal vectors 
. 4 and frequencies 

[mdvc ,w]=eig(m\k) ; 

[w,id]-sort(diag(w)); w=sqrt(w) ; 


E 8 Mog BS. 


e 


. 4 Arrange frequencies in ascending order 
;: mdvc=mdvc(:,id); z=mdvc\[u0(:) ,v0(:2]; 


oN 


OQ qv oO og o qr og oO oO cg 


o 


o» ^ Generate vector of equidistant times 
61: t=linspace(tmin, tmax,nt) ; 


o» ^ Evaluate the displacement as a 
6: h function of time 

o; uz (mdvc*diag(z(:,1)))*cosQw*t)*... 
o  (mdvc*diag(z(: ,2)./w))*sin(w*t) ; 
o t=t(:); u=u’; natfrq-w; 


7: function canimate(y,u,t,tmin, tmax,norub) 


7a: VA 


74: do 
7s: ^ This function draws an animated plot of 
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; ^ data values stored in array u. The 

: 4 different columns of u correspond to position 
. 4 values in vector y. The successive rows of u 
: 4 correspond to different times. Parameter 

. 4 tpause controls the speed of the animation. 


Au - matrix of values for which 

=h animated plots of u versus y 

A are required 

Ay - spatial positions for different 
MA columns of u 

voe d - time vector at which positions 
Sh are known 

. 4 tmin,tmax - time limits for graphing of the 
Sh solution 

: 4 norub - parameter which makes all 

oe position images remain on the 
ih screen. Only one image at a 

E time shows if norub is left out. 
A A new cable position appears each 
BA time the user presses any key 


: 4 If norub is input, 
:% all images are left on the screen 


s if nargin < 6 


rubout = 1; 
: else 

rubout = 0; 
: end 


: 4 Determine window limits 

. umin-min(u(:)); umax-max(u(:)); udif-umax-umin; 
; uavg- . 5* (umintumax) ; 

. ymin-min(y); ymax-max(y); ydif-ymax-ymin; 

; yavg=.5* (ymint+ymax) ; 

: ywmin=yavg-.55*ydif; ywmax-yavgt.55*ydif; 

; uwmin=uavg-.55*udif; uwmax-uavgt.b55*udif; 

; ni=sum(t<=tmin); n2-sum(t«-tmax); 

; t=t(ni:n2); u=u(ni:n2,:); 

: u=fliplr (u); [ntime,nxpts]=size(u) ; 


: hold off; cla; ey=0; eu=0; axis(’square’) ; 
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221: axis ( [uwmin,uwmax, ywmin, ywmax] ) ; 

222 axis off; hold on; 

223: title(? Trace of Linearized Cable Motion’); 
224: 

225: 4 Plot successive positions 

226: for j-1:ntime 

27: ut=u(j,:); plot(ut,y,’-’); 

zs — figure(gcf); pause(.5); 


23: ^4 Erase image before next one appears 
231: if rubout & j < ntime, cla, end 
232: end 


E: SeSe 


7.2 Direct Integration Methods 


Using stepwise integration methods to solve the structural dynamics equation pro- 
vides an alternative to frequency analysis methods. If we invert the mass matrix and 
save the result for later use, the n degree-of-freedom system can be expressed con- 
cisely as a first order system in 2n unknowns for a vector z = |x; v], where v is the 
time derivative of x. The system can be solved by applying the variable step-size 
differential equation integrator ode45 as indicated in the following function: 


function [t,x]=strdynrk(t,x0,v0,m,c,k, functim) 
$ [t,x]=strdynrk(t,x0,v0,m,c,k,functim) 
global Mi C K Fn ni n2 

Mi=inv(m); C=c; K=k; F=functim; 

n-size(m,1); n1-1:n; n2=n+1:2*n; 
[t,z]=ode45(@sde,t, [x0(:);vO(:)]); x=z(:,n1); 


function zp-sde(t,z) 
global Mi C K F n n1 n2 
zp=[z(n2); Mi*(feval(F,t)-C*z(n2)-K*z(n1))]; 


=eye (3,3); k=[2,-1,0;-1,2,-1;0,-1,2]; 
=.05*k; 
-1;0;1]*sin(1.413*t); 


In this function, the inverted mass matrix is stored in a global variable Mi, the 
damping and stiffness matrices are in C and K, and the forcing function name is 
stored in a character string called functim. Although this approach is easy to im- 
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plement, the resulting analysis can be very time consuming for systems involving 
several hundred degrees of freedom. Variable step integrators make adjustments to 
control stability and accuracy which can require very small integration steps. Con- 
sequently, less sophisticated formulations employing fixed step-size are often em- 
ployed in finite element programs. We will investigate two such algorithms derived 
from trapezoidal integration rules [7, 113]. The two fundamental integration formu- 
las [26] needed are: 


hi hs s 
[ 1 - iroso- ren 


and 


[ roa- tvorno ro-ro + Ee) 


where a < €; < bandh = b — a. The first formula, called the trapezoidal rule , gives 
a Zero truncation error term when applied to a linear function. Similarly, the second 
formula, called the trapezoidal rule with end correction , has a zero final term for a 
cubic integrand. 

The idea is to multiply the differential equation by dt, integrate from t to (t + h), 
and employ numerical integration formulas while observing that M, C, and K are 
constant matrices, or 


tho tth | t+h trh 
mf vac f xa+K f xa-[ P(t) dt 
t t t t 
tth | t+h 
/ xa-[ V di. 
t t 


For brevity we utilize a notation characterized by X(t) = Xo, X(t-- h) = Xi, 
X = X, — Xo. The trapezoidal rule immediately leads to 


and 


h? us h 
M+ C TK[V- / Pityit = h [CV + K(Xo + $V) + O(h3). 
t 


The last equation is a balance of impulse and momentum change involving the effec- 
tive mass matrix 
h2 
"EN 


which can be inverted once and used repeatedly if the step-size is not changed. 
To integrate the forcing function we can use the midpoint rule [26] which states 


that 
[ P(t) dt = hP (522) + O(h’). 
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Solving for V yields 
2 


: ho hè J] h h " 


The velocity and position at (t + h) are then computed as 
m h j 
V -VocV,Xi- Xo + [VW + V1] + O(A’). 


A more accurate formula with truncation error of order ^? can be developed from 
the extended trapezoidal rule. This leads to 


" " h ~ h2 7 t+h 
MV+CX+K zX + 2X0) - s =| P(t)dt + O(h?) 
t 


and 
~ he h2. : " 
X = SIV + 2Vo] + 35[Vo - Vi] + O(^ J: 


Multiplying the last equation by M and employing the differential equation to reduce 
the Vo — Vi terms gives 
2 


MX = 5 MIV + 2V0] + iz P +CV +KX] + O(h’). 


These results can be arranged into a single matrix equation to be solved for X and 
V: 


2 2 
-(&M + 4C) (M - 45K) 


V] [hMW + (Po — Pi) 
(M- SK) (C4 hk) x] - [755 808 7] co. 


X J Pdt — hK Xo 


A Gauss two-point formula [26] evaluates the force integral consistent with the de- 
sired error order so that 


t+h 
h E 
/ P(t)dt — 5 [P(t + ah) + P(t 4- 8h)] + O(h?) 
t 
where o = 3-Ys and 8 — 33. 


7.2.1 Example on Cable Response by Direct Integration 


Functions implementing the last two algorithms appear in the following program 
which solves the previously considered cable dynamics example by direct integra- 
tion. Questions of computational efficiency and numerical accuracy are examined for 
two different step-sizes. Figures 7.7 and 7.8 present solution times as multiples of 
the times needed for a modal response solution. The accuracy measures employed 
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Solution Error For Implicit 2nd Order Integrator 
0.25 T T T T T T T 


| 
<= h= 0.04, relative cputime= 34.6721 | | 
t h- 0.08, relative cputime- 17.5615 I | 


0.2. i EE 


o 
a 
T 

i 


solution error measure 
eo 
I 


0 fi fi fi L 


J; 
0 5 10 15 20 25 30 35 40 45 50 
time 


Figure 7.7: Solution Error for Implicit 2nd Order Integrator 


are described next. Note that the displacement response matrix has rows describ- 
ing system positions at successive times. Consequently, a measure of the difference 
between approximate and exact solutions is given by the vector 


error vector = WMbsqrt(Mbsum(((x aprox-x exact).^2)')); 


Typically this vector has small initial components (near t = 0) and larger compo- 
nents (near the final time). The error measure is compared for different integrators 
and time steps in the figures. Note that the fourth order integrator is more efficient 
than the second order integrator because a larger integration step can be taken with- 
out excessive loss in accuracy. Using h = 0.4 for mckdedi achieved nearly the same 
accuracy as that given by mckde2i with h = 0.067. However, the computation time 
for mckde2i was several times as large as that for mckdedi. 

In the past it has been traditional to use only second order methods for solving 
the structural dynamics equation. This may have been dictated by considerations on 
computer memory. Since workstations widely available today have relatively large 
memories and can invert a matrix of order two hundred in about half a second, it 
appears that use of high order integrators may gain in popularity. 

The following computer program concludes our chapter on the solution of linear, 
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Solution Error For Implicit 4th Order Integrator 
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Figure 7.8: Solution Error for Implicit 4th Order Integrator 


constant-coefficient matrix differential equations. Then we will study, in the next 
chapter, the Runge-Kutta method for integrating nonlinear problems. 
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MATLAB Example 


Program deislner 


Q9 AIR EU. o 9o UN UR 


; Sfunction deislner 


^ Example: deislner 


^ Solution error for simulation of cable 
^ motion using a second or a fourth order 
^ implicit integrator. 


. ^ This program uses implicit second or fourth 
. ^ order integrators to compute the dynamical 

. ^ response of a cable which is suspended at 

. ^ one end and is free at the other end. The 

. ^ cable is given a uniform initial velocity. 

. ^ A plot of the solution error is given for 

. ^ two cases where approximate solutions are 

. ^ generated using numerical integration rather 
. ^ than modal response which is exact. 


; ^ User m functions required: 
UA mckde2i, mckde4i, cablemk, udfrevib, 
(v plterror 


23: 4 Choose a model having twenty links of 

. ^ equal length 

25: 

: fprintf(... 

27: "MnPlease wait: solution takes a while\n’) 
2: Clear all 

2: n720; gravty-1.; n2-1*fix(n/2); 

. masses=ones(n,1)/n; lengths=ones(n,1)/n; 


. ^ First generate the exact solution by 

. ^ modal superposition 

. [n, k] cablemk (masses ,lengths,gravty); 

: c=zeros(size(m)); 

3: dSp=zeros(n,1); vel=ones(n,1); 

s. tO=0; tfin-50; ntim-126; h=(tfin-t0)/(ntim-1) ; 


3: 4 Numbers of repetitions each solution is 
. 4 performed to get accurate cpu times for 
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. ^ the chosen step sizes are shown below. 
. ^ Parameter jmr may need to be increased to 
. ^ give reliable cpu times on fast computers 


s jmr-500; 
; j27fix(jmr/50); J2-fix(jmr/25); 
; j4=fix(jmr/20); J4-fix(jmr/10); 


. ^ Loop through all solutions repeatedly to 
5: ^ obtain more reliable timing values on fast 
5: 4 computers 

52; tic; 

s for j-1:jmr; 


[tmr,xmr]-udfrevib(m,k,dsp,vel,tO,tfin,ntim); 


s end 
s: tcpmr-toc/ jmr ; 


ss; ^ Second order implicit results 
;: 12710; h2-h/i2; tic; 
: for j=1:j2 


[t2,x2]=mckde2i(m,c,k,t0,dsp,vel,tfin,h2,i2); 


; end 
. tcep2=toc/j2; tr2-tcp2/tcpmr; 


s L2=5; H2-h/I2; tic; 
; for j=1:J2 


[T2, X2] »mckde2i(m,c,k,tO,dsp,vel,tfin,H2,12); 


; end 
: Tcp27toc/J2; Tr2-Tcp2/tcpmr; 


. ^ Fourth order implicit results 
: 1422; h4=h/i4; tic; 
: for j=1:j4 


[t4,x4]=mckde4i(m,c,k,t0,dsp,vel,tfin,h4,i4); 


s end 
. tcp4-toc/j4; tr4-tcp4/tcpmr; 


;: [4=1; H4=h/14; tic; 
; for j=1:J4 


[T4, X4] »mckde4i (n,c,k,tO,dsp,vel,tfin,H4,I4) ; 


; end 
: Tcp4-7toc/J4; Tr4-Tcp4/tcpmr; 


; 4 Plot error measures for each solution 
| plterror(xmur,t2,h2,x2,T2,H2,X2,... 
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t4,h4,x4,T4,H4,X4,tr2,Tr2,tr4,Tr4) 


function [t,x,tcp] = 


mckde2i (m, c,k,t0, x0, vO,tmax,h,incout,forc) 


OE [t,x,tcp]= 
A mckde2i(m,c,k,t0,x0,v0,tmax,h,incout,forc) 


. ^ This function uses a second order implicit 

. ^ integrator % to solve the matrix differential 
. 4 equation 

P m x’? +c x? wm. fore) 

; 4 where m,c, and k are constant matrices and 

: 4 forc is an externally defined function. 


^ Input 
| oc 
s 4 m,c,k mass, damping and stiffness matrices 
; 4 tO starting time 
;: 4 X0,v0 initial displacement and velocity 
; 4 tmax maximum time for solution evaluation 
Ah integration stepsize 
:% incout number of integration steps between 
p! successive values of output 
A forc externally defined time dependent 
y/ forcing function. This parameter 
^ should be omitted if no forcing 
^ function is used. 
h 
^ Output 
cce 
At time vector going from tO to tmax 
cH in steps of 
hX h*incout to yield a matrix of 
A solution values such that row j 
zh is the solution vector at time t(j) 
t tcp computer time for the computation 


; 4 User m functions called: none. 


. if (margin > 9); force-1; else, force=0; end 
: if nargout ==3, tcp=clock; end 
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35: 


36: jrow-1; jstep=0; h2-h/2; 


OQ qv OU og o qr og oG Qo cg 


BO 1005 LS ER E C NE 


; hbig-h*incout; 

; t=(tO:hbig:tmax)’; n=length(t) ; 
33, nS=(n-1)*incout; ts=tO+h*(O:ns)’; 
34. Xnow-x0(:); vnow=v0(:); 


nvar=length(x0) ; 


. % Form the inverse of the effective 
3: 4 stiffness matrix 
; mnv-h*inv(mrh2*(c*h2*k)) ; 


:% Initialize the output matrix for x 
3: x-zeros(n,nvar); x(1,:)=xnow’; 
. zroforc=zeros(length(x0) ,1); 


; ^ Main integration loop 
; for j-1:ns 


tj=ts(j) ;tjh=tjt+h2; 
if force 
dv=feval(forc,tjh) ; 
else 
dv=zroforc; 
end 
dv=mnv* (dv-c*vnow-k* (xnowth2*vnow) ) ; 
vnext=vnowtdv ; xnext=xnowth2* (vnowtvnext); 
jstep=jstept1; 
if jstep == incout 
jstep=0; jrow=jrowt1; x(jrow, :)=xnext’ ; 
end 
xnow=xnext; vnow=vnext ; 


; end 
; if nargout == 


tcp=etime(clock,tcp) ; 


; else 


function: [t,x,tcp] = 


mckde4i(m,c,k,t0,x0,v0,tmax,h,incout,forc) 


: %4 [t,x,tcp]= uos 
mA mckde4i(m,c,k,t0,x0,v0,tmax,h,incout,forc) 
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Oo 


ort an fF WY E 


This function uses a fourth order implicit 
integrator with fixed stepsize to solve the 
matrix differential equation 


m x? +c x?! +k x = forc(t) 


where m,c, and k are constant matrices and 


forc is 


incout 


forc 


tcp 


an externally defined function. 


mass, damping and stiffness matrices 
starting time 

initial displacement and velocity 
maximum time for solution evaluation 
integration stepsize 

number of integration steps between 
successive values of output 
externally defined time dependent 
forcing function. This parameter 
should be omitted if no forcing 
function is used. 


time vector going from tO to tmax 
in steps of h*incout 

matrix of solution values such 
that row j is the solution vector 
at time t(j) 

computer time for the computation 


User m functions called: none. 


; if nargin > 9, force-1; else, force-0; end 

: if nargout --3, tcp-clock; end 

; hbig-h*incout; t-(t0:hbig:tmax)'; 

. n=length(t); ns-(n-1)*incout; nvar=length(x0) ; 
: jrow-1; jstep=0; h2-h/2; h12-h*h/12; 


: 4^ Form the inverse of the effective stiffness 
. 4 matrix for later use. 


; m122m-h12*k; 
; mnv-inv ( [[C-h2*m-h12*c) ,m12] ; 


[n12, (c*h2*k)]]) ; 
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: 4 The forcing function is integrated using 
» 4 2 point Gauss rule 
. r3-sqrt(3); bi-h*(3-r3)/6; b2=h*(3+r3)/6; 


» ^ Initialize output matrix for x and other 
. 4 variables 

; xnow-x0(:); vnow=v0(:); 

. tnow-t0; zroforc=zeros(length(x0) ,1); 


; if force 


fnow-feval(forc,tnow); 


3 else 


fnow-zroforc; 


. end 
; X-zeros(n,nvar); x(1,:)=xnow’; fnext=fnow; 


: 4 Main integration loop 
; for j-1:ns 


tnow=t0+(j-1)*h; tnext=tnowth; 
if force 
fnext=feval (forc,tnext) ; 
dii-hi2*(fnow-fnext); 
di2=h2* (feval (forc,tnowtb1)+ 
feval(forc,tnow*b2)); 


z-mnv*[(dii*m*(h*vnow)); (di2-k*(h*xnow))]; 


fnow-fnext; 
else 

z-mnv*[m*(hx*vnow); -k*(h*xnow)]; 
end 
vnext-vnow + z(1:nvar); 
xnext-xnow + z((nvar*1):2*nvar); 
jstep=jstept1; 


^ Save results every incout steps 
if jstep == incout 

jstep=0; jrow-jrow*i; x(jrow, :)=xnext’ ; 
end 


^ Update quantities for next step 
xnow-xnext; vnow-vnext; fnow-fnext; 


; end 
; if nargout-- 


tcp-etime(clock,tcp); 


; else 
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: function [m,k]-cablemk(masses,lngths,gravty) 
: ^ [m,k]2cablemk(masses,lngths,gravty) 


. 4^ Form the mass and stiffness matrices for 
; 4 the cable. 


0 
h 
; ^ masses - vector of masses 
; 4 1ngths - vector of link lengths 
: 4 gravty - gravity constant 
(4 m,k - mass and stiffness matrices 
0 
h 


3 4 User m functions called: none. 


; m=diag (masses) ; 
: b=flipud(cumsum(flipud(masses(:))))* 


gravty./lngths; 


: n=length (masses); k=zeros(n,n); k(n,n)=b(n); 
: for i=1:n-1 


k(i,i)-b(i)tb(i*1); k(i,i*1)--b(i*1); 
k(i*i,i)-k(i,i*1); 


3 end 


: function plterror(xmr,t2,h2,x2,T2,H2,X2,... 


t4,h4,x4,T4,H4,X4,tr2,Tr2,tr4,Tr4) 


^ plterror (xmr,t2,h2,x2,T2,H2,X2,... 


3 ^ Plots error measures showing how different 
. 4 integrators and time steps compare with 
. 4 the exact solution using modal response. 


; 4 User m functions called: none 


: ^ Compare the maximum error in any component 
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. 4 at each time with the largest deflection 

: 4 occurring during the complete time history 
; maxd-max (abs (xmnr (:))); 

; er2=max (abs (x2-xmr) ’) /maxd; 

; Er2=max (abs (X2-xmr) ? ) /maxd; 

. er4=max (abs (x4-xmr) ’) /maxd; 

; Er4=max (abs (X4-xmr) ? ) /maxd; 


3 plot(t2,er2, iid 12, Er2, eg 
; title(['Solution Error For Implicit ’,... 


72nd Order Integrator’]); 


; xlabel(’time’); 
3: ylabel(?solution error measure’); 


: lgi-['h- ?, num2str(h2), , 

^; relative cputime- ’, num2str(tr2)]; 
; lg2-['h- ", num2str(H2), . 

^; relative cputime- ’, num2str(Tr2)]; 


: legend(1g1,1g2,2); figure(gcf); 
. dispC Press [Enter] to continue’); pause 
: 4 print -deps deislne2 


f plot(t4,er4, t=? ,I4,Er4, ert) 
s title(['Solution Error For Implicit ’,... 


^4th Order Integrator’]); 


s Xlabel(’time’) ; 
; ylabel(?solution error measure’); 


: lgt=[’h= ?, num2str(h4), : 

^; relative cputime- ’, num2str(tr4)]; 
: lg2=[’h= ?, num2str(H4), 

^; relative cputime- ?, num2str(Tr4)]; 


: legend(1g1,1g2,2); figure(gcf); 
. 4 print -deps deislne4 
3 dispC ?), disp’ All Done?) 


;. 4 function [t,u,mdvc,natfrq]-... 
mA udfrevib(m,k,u0O,vO,tmin,tmax,nt) 
; 4 See Appendix B 
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Chapter 8 


Integration of Nonlinear Initial Value 
Problems 


8.1 General Concepts on Numerical Integration of Nonlinear Ma- 
trix Differential Equations 


Methods for solving differential equations numerically are one of the most valu- 
able analysis tools now available. Inexpensive computer power and user friendly 
software are stimulating wider use of digital simulation methods. At the same time, 
intelligent use of numerically integrated solutions requires appreciation of inherent 
limitations of the techniques employed. The present chapter discusses the widely 
used Runge-Kutta method and applies it to some specific examples. 

When physical systems are described by mathematical models, it is common that 
various system parameters are only known approximately. For example, to predict 
the response of a building undergoing earthquake excitation, simplified formulations 
may be necessary to handle the elastic and frictional characteristics of the soil and the 
building. Our observation that simple models are used often to investigate behavior 
of complex systems does not necessarily amount to a rejection of such procedures. In 
fact, good engineering analysis depends critically on development of reliable mod- 
els which can capture salient features of a process without employing unnecessary 
complexity. At the same time, analysts need to maintain proper caution regarding 
trustworthiness of answers produced with computer models. Nonlinear system re- 
sponse sometimes changes greatly when only small changes are made in the physical 
parameters. Scientists today realize that, in dealing with highly nonlinear phenom- 
ena such as weather prediction, it is simply impossible to make reliable long term 
forecasts [45] because of various unalterable factors. Among these are a) uncertainty 
about initial conditions, b) uncertainty about the adequacy of mathematical mod- 
els describing relevant physical processes, c) uncertainty about error contributions 
arising from use of spatial and time discretizations in construction of approximate 
numerical solutions, and d) uncertainty about effects of arithmetic roundoff error. In 
light of the criticism and cautions being stated about the dangers of using numerical 
solutions, the thrust of the discussion is that idealized models must not be regarded 
as infallible, and no numerical solution should be accepted as credible without ad- 
equately investigating effects of parameter perturbation within uncertainty limits of 
the parameters. To illustrate how sensitive a system can be to initial conditions, we 
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might consider a very simple model concerning motion of a pendulum of length £ 
given an initial velocity vo starting from a vertically downward position. If vo ex- 
ceeds 24/g£, the pendulum will reach a vertically upward position and will go over 
the top. If vo is less than 2/94, the vertically upward position is never reached. 
Instead, the pendulum oscillates about the bottom position. Consequently, initial 
velocities of 1.999,/g@ and 2.0014/g£ produce quite different system behavior with 
only a tiny change in initial velocity. Other examples illustrating the difficulties of 
computing the response of nonlinear systems are cited below. These examples are 
not chosen to discourage use of the powerful tools now available for numerical in- 
tegration of differential equations. Instead, the intent is to encourage users of these 
methods to exercise proper caution so that confidence in the reliability of results is 
fully justified. 

Many important physical processes are governed by differential equations. Typical 
cases include dynamics of rigid and flexible bodies, heat conduction, and electrical 
current flow. Solving a system of differential equations subject to known initial con- 
ditions allows us to predict the future behavior of the related physical system. Since 
very few important differential equations can be solved in closed form, approxima- 
tions which are directly or indirectly founded on series expansion methods have been 
developed. The basic problem addressed is that of accurately computing Y (t + h) 
when Y (t) is known, along with a differential equation governing system behavior 
from time ¢ to (t + h). Recursive application of a satisfactory numerical approx- 
imation procedure, with possible adjustment of step-size to maintain accuracy and 
stability, allows approximate prediction of system response subsequent to the starting 
time. 

Numerical methods for solving differential equations are important tools for an- 
alyzing engineering systems. Although valuable algorithms have been developed 
which facilitate construction of approximate solutions, all available methods are 
vulnerable to limitations inherent in the underlying approximation processes. The 
essence of the difficulty lies in the fact that, as long as a finite integration step-size 
is used, integration error occurs at each time step. These errors sometimes have an 
accumulative effect which grows exponentially and eventually destroys solution va- 
lidity. To some extent, accuracy problems can be limited by regulating step-size to 
keep local error within a desired tolerance. Typically, decreasing an integration tol- 
erance increases the time span over which a numerical solution is valid. However, 
high costs for supercomputer time to analyze large and complex systems sometimes 
preclude generation of long time histories which may be more expensive than is 
practically justifiable. 
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8.2 Runge-Kutta Methods and the ODE45 Integrator Provided 
in MATLAB 
Formulation of one method to solve differential equations is discussed in this sec- 
tion. Suppose a function y(x) satisfies a differential equation of the form y'(x) = 
f(x,y), subject to y(zo) = yo, where f is a known differentiable function. We 
would like to compute an approximation of y(zo + h) which agrees with a Taylor's 
series expansion up to a certain order of error. Hence, 


y(zo + h) = g(xo, h) + O(h**!) 
where O(h?'*1) denotes a quantity which decreases at least as fast as h" t+ for small 
h. Taylor's theorem allows us to write 
1 
y(zo + h) = y(ao) + y (xo)h + sy" (xo) h^ + O(h*) 


= yo + F(a, yo)h + s ros yo) + Fy(0, vo) folh? + O(h?) 


where fo = f(xo,yo). The last formula can be used to compute a second order 
approximation (xo + h), provided the partial derivatives fy and fy can be evaluated. 
However, this may be quite difficult since the function f(x,y) may not even be 
known explicitly. 

The idea leading to Runge-Kutta integration is to compute y(zo + h) by making 
several evaluations of function f instead of having to differentiate that function. Let 
us seek an approximation in the form 


Jlro +h) = yo + h[ko fo + kif (zo + ah, yo + Bhfo)]. 


We choose ko, ki, a, and 8 to make (£o + h) match the series expansion of y(x) 
as well as possible. Since 


f (o + ah, yo + Bhfo) = fo + [fs (xo; yo)o + fy(xo; yo) foB]h + O(h?), 
we must have 


fj(xo +h) = yo + h[(ko + ki) fo + ki (fe(o, yo)a + fy(xo. yo) 8 fo)]h + O(h?) 
= yo + (Ko + ki) foh + [fs (zo; yo)akı + fy(xo; yo) foBki]h? + O(h?). 


The last relation shows that 

y(xo + h) = (xo + h) + O(h?) 
provided 
1 


1 
kotki =1, akı =3, Ba —7 
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This system of three equations in four unknowns has an infinite number of solutions; 
one of these is kg = ky i a = 2 = 1. This implies that 


Vr +h) = weno) + fo + Gro + h, yo + hfo)]h + O(h). 


Neglecting the truncation error O(h?) gives a difference approximation known as 
Heun’s method [61], which is classified as a second order Runge-Kutta method. Re- 
ducing the step-size by h reduces the truncation error by about a factor of ( i)? = 
1 


&. Of course, the formula can be used recursively to compute approximations to 
y(xo +h), y(xo + 2h), y(xo + 3h), .... In most instances, the solution accuracy de- 
creases as the number of integration steps is increased and results eventually become 
unreliable. Decreasing h and taking more steps within a fixed time span helps, but 
this also has practical limits governed by computational time and arithmetic roundoff 
error. 

The idea leading to Heun’s method can be extended further to develop higher order 
formulas. One of the best known is the fourth order Runge-Kutta method described 


as follows 


y(xo + h) = y(Xo) + h|kı + 2kə + 2ka + ka] /6 
where 


h h 
ky = f (xo. yo) , k2 = f(xo + 9: 40 th) 


ka = f(xo + — kee) , ka = f (xo + h, yo + kah). 
The truncation error for this formula is order h5; so, the error is reduced by about 
a factor of E when the step-size is halved. The development of the fourth order 
Runge-Kutta method is algebraically quite complicated [43]. We note that accuracy 
of order four is achieved with four evaluations of f for each integration step. This 
situation does not extend to higher orders. For instance, an eighth order formula 
may require twelve evaluations per step. This price of more function evaluations 
may be worthwhile provided the resulting truncation error is small enough to permit 
much larger integration steps than could be achieved with formulas of lower order. 
MATLAB provides the function ode45 which uses variable step-size and employs 
formulas of order four and five. (Note: In MATLAB 6.x the integrators can output 
results for an arbitrary time vector using, for instance, even time increments.) 


[EIER U U 


8.3 Step-size Limits Necessary to Maintain Numerical Stability 


It can be shown that, for many numerical integration methods, taking too large a 
step-size produces absurdly large results that increase exponentially with successive 
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time steps. This phenomenon, known as numerical instability, can be illustrated with 
the simple differential equation 


y (t) = f(t,y) = y 


which has the solution y = ce’. If the real part of A is positive, the solution becomes 
unbounded with increasing time. However, a pure imaginary À produces a bounded 
oscillatory solution, whereas the solution decays exponentially for real(A) < 0. 
Applying Heun's method [43] gives 


(Ah)? 


ylt+h)=y(t)| 1+ (Ah) + 7 


This shows that at each integration step the next value of y is obtained by multiplying 
the previous value by a factor 
(Ah)? 

9 , 
which agrees with the first three Taylor series terms of eò”. Clearly, the difference 
relation leads to 


p=1+(Ah)+ 


Yn = yop". 
As n increases, y,, will approach infinity unless |p| € 1. This stability condition can 
be interpreted geometrically by regarding Ah as a complex variable z and solving for 
all values of z such that 


2 
lt2+—=¢e®, I(}<1,0<0<2n. 


Taking ¢ = 1 identifies the boundary of the stability region, which is normally a 
closed curve lying in the left half of the complex plane. Of course, h is assumed to 
be positive and the real part of A is nonpositive. Otherwise, even the exact solution 
would grow exponentially. For a given A, the step-size h must be taken small enough 
to make |AA| lie within the stability zone. The larger |A| is, the smaller h must be to 
prevent numerical instability. 

The idea illustrated by Heun's method can be easily extended to a Runge-Kutta 
method of arbitrary order. A Runge-Kutta method of order n reproduces the exact 
solution through terms of order n in the Taylor series expansion. The differential 
equation y’ = Ay implies 

y(t +h) = y(t)e^ 


and 


Consequently, points on the boundary of the stability region for a Runge-Kutta method 
of order n are found by solving the polynomial 


pgs J z =0 
k! 
k=1 
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for a dense set of 0-values ranging from 0 to 27. Using MATLAB 's intrinsic function 
roots allows easy calculation of the polynomial roots which may be plotted to show 
the stability boundary. The following short program accomplishes the task. Program 
output for integrators of order four and six is shown in Figures 8.1 and 8.2. Note 
that the region for order 4 resembles a semicircle with radius close to 2.8. Using 
|Ah| > 2.8, with Runge-Kutta of order 4, would give results which rapidly become 
unstable. The figures also show that the stability region for Runge-Kutta of order 6 
extends farther out on the negative real axis than Runge-Kutta of order 4 does. The 
root finding process also introduces some meaningless stability zones in the right 
half plane which should be ignored. 


Stability Zone for Explicit Integrator of Order 4 


imaginary part of h*4. 
o 


real part of h*. 


Figure 8.1: Stability Zone for Explicit Integrator of Order 4 
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Stability Zone for Explicit Integrator of Order 6 


O 


imaginary part of h*A 
o 
T 


i i i i i i i i i 
-4 -3 -2 -1 0 1 2 3 4 
real part of h*. 


Figure 8.2: Stability Zone for Explicit Integrator of Order 6 
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MATLAB Example 


Program rkdestab 


. ^ Example: rkdestab 


This program plots the boundary of the region 
. ^ of the complex plane governing the maximum 

s 4 Step size which may be used for stability of 
. ^ a Runge-Kutta integrator of arbitrary order. 


A w N H 
E 
sx 


6 

Th 

& 4 npts - a value determining the number of 
a: h points computed on the stability 
10: % boundary of an explicit Runge-Kutta 
i integrator. 

i: ^ xrang - controls the square window within 
13: h which the diagram is drawn. 

u: h [ -3, 3, -3, 3] is appropriate for 
15: % the fourth order integrator. 

16: VA 


iz. h User m functions required: none 


19: hold off; clf; close; 
2: fprintf(’\nSTABILITY REGION FOR AN ?); 
a: fprintf CEXPLICIT RUNGE-KUTTA’) ; 


2: fprintf(’\n INTEGRATOR OF ARBITRARY ?); 
23: fprintf(’?ORDER\n\n’) ; 

24 While 1 

2: disp? ?) 


26; nordr=input(’Give the integrator order ? > ’); 

z; if isempty(nordr) | nordr--0, break; end 

zs 4 fprintf(’\nInput the number of points ?); 

2: ^ fprintf(’?used to define\n’) ; 

30: 4 npts-input(?the boundary (100 is typical) ? > ?); 
31: npts=100; 

a» r-zeros(npts,nordr); v=1./gamma(nordr+1:-1:2); 

; d=2*pi/(npts-1); i=sqrt(-1); 


Os r 
[A 


as ^ Generate polynomial roots to define the 
36: 4 Stability boundary 

37. for j-1:npts 

3: — ^ polynomial coefficients 

3 — V(nordr*1)-1-exp(i*(j-1)*8); 

4» — ^ complex roots 
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a: teroots(v) ; r(j,:)=t(:).°; 
42: end 


44 4 Plot the boundary 

4; rel-real(r(:)); img-imag(r(:)); 

4: W=1.1*max(abs([rel;img])); 

az; Zoom on; plot(rel,img,’.’); 

is axis([-w,w,-w,w]); axis(’square’); 
a: Xlabel(?real part of h*\lambda’) ; 
s: ylabel(? imaginary part of h*\lambda’) ; 
1 ns-int2str(nordr); 

2 St-['Stability Zone for Explicit ’ 
53: ^Integrator of Order ’,ns]; 

s title(st); grid on; figure(gcf) ; 
55: ^ print -deps rkdestab 

sé; end 


ss disp(’ ?); disp’ All Done’); 


Dn SeSe 


8.4 Discussion of Procedures to Maintain Accuracy by Varying 
Integration Step-size 


When we solve a differential equation numerically, our first inclination is to seek 
output at even increments of the independent variable. However, this is not the most 
natural form of output appropriate to maintain integration accuracy. Whenever so- 
lution components are changing rapidly, a small time step may be needed, whereas 
using a small time step might be quite inefficient at times where the solution remains 
smooth. Most modern ODE programs employ variable step-size algorithms which 
decrease the integration step-size whenever some local error tolerance is violated and 
conversely increase the step-size when the increase can be performed without loss of 
accuracy. If results at even time increments are needed, these can be determined by 
interpolation of the non-equidistant values. The differential equation integrators pro- 
vide the capability to output results at an arbitrary vector of times over the integration 
interval. 

Although the derivation of algorithms to regulate step-size is an important topic, 
development of these methods is not presented here. Several references [43, 46, 
51, 61] discuss this topic with adequate detail. The primary objective in regulating 
step-size is to gain computational efficiency by taking as large a step-size as possible 
while maintaining accuracy and minimizing the number of function evaluations. 

Practical problems involving a single first order differential equation are rarely 
encountered. More commonly, a system of second order equations occurs which is 
then transformed into a system involving twice as many first order equations. Several 
hundred, or even several thousand dependent variables may be involved. Evaluating 
the necessary time derivatives at a single time step may require computationally in- 
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tensive tasks such as matrix inversion. Furthermore, performing this fundamental 
calculation several thousand times may be necessary in order to construct time re- 
sponses over time intervals of practical interest. Integrating large systems of nonlin- 
ear differential equations is one of the most important and most resource intensive 
aspects of scientific computing. 

Instead of deriving the algorithms used for step-size control in ode45, we will 
outline briefly the ideas employed to integrate y'(t) = f(t, y) from t to (t + h). It 
is helpful to think of y as a vector. For a given time step and y value, the program 
makes six evaluations of f. These values allow evaluation of two Runge-Kutta for- 
mulas, each having different truncation errors. These formulas permit estimation of 
the actual truncation error and proper step-size adjustment to control accuracy. If the 
estimated error is too large, the step-size is decreased until the error tolerance is sat- 
isfied or an error condition occurs because the necessary step-size has fallen below 
a set limit. If the estimated error is found to be smaller than necessary, the integra- 
tion result is accepted and the step-size is increased for the next pass. Even though 
this type of process may not be extremely interesting to discuss, it is nevertheless an 
essential part of any well designed program for integrating differential equations nu- 
merically. Readers should become familiar with the error control features employed 
by ODE solvers. Printing and studying the code for ode45 is worthwhile. Studying 
the convergence tolerance used in connection with function odeset is also instructive. 
It should be remembered that solutions generated with tools such as ode45 are vul- 
nerable to accumulated errors from roundoff and arithmetic truncation. Such errors 
usually render unreliable the results obtained sufficiently far from the starting time. 

This chapter concludes with the analysis of several realistic nonlinear problems 
having certain properties of their exact solutions known. These known properties are 
compared with numerical results to assess error growth. The first problem involves 
an inverted pendulum for which the loading function produces a simple exact dis- 
placement function. Examples concerning top dynamics, a projectile trajectory, and 
a falling chain are presented. 
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8.5 Example on Forced Oscillations of an Inverted Pendulum 


The inverted pendulum in Figure 8.3 involves a weightless rigid rod of length / 
which has a mass m attached to the end. Attached to the mass is a spring with 
stiffness constant k and an unstretched length of yl. The spring has length | when 
the pendulum is in the vertical position. Externally applied loads consist of a driv- 
ing moment M(t), the particle weight, and a viscous damping moment cl 26. The 
differential equation governing the motion of this system is 


Ë = —(c/m)Ó + (g/l) sin(0) + M(t)/(ml?) — (2k/m) sin(6)(1 — o//A) 
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Figure 8.3: Forced Vibration of an Inverted Pendulum 
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where 

à = y5 — 4cos(6). 
This system can be changed to a more convenient form by introducing dimensionless 
variables. We let t = (4/[/g)r where 7 is dimensionless time. Then 


Ó = —a + sin(0) + P(r) — Bsin(0)(1— y/) 
where 


a = (c/m) /T/g = viscous damping factor, 
B = 2(k/m)/(9/l), 
A 
n 


N 


= y5 — 4cos(0), 
= (unstretched spring length)/l, 


P(r) = M/(mgl) = dimensionless driving moment. 


It is interesting to test how well a numerical method can reconstruct a known exact 
solution for a nonlinear function. Let us assume that the driving moment M (7) 
produces a motion having the equation 


0. (T) = 0o sin(wT) 
for arbitrary 09 and w. Then 
0. (T) = wbo cos(wr) 


and . 
0.(T) = —w7 As. 


Consequently, the necessary driving moment is 
P(r) = —w?0, — sin(0,) + yw cos(wr) + B sin(0,) [1 — v/v 5 — Acos(&.)] ] 
Applying this forcing function, along with the initial conditions 
6(0) =0, 6(0) = bow 


should return the solution 6 = 0.(7). For a specific numerical example we choose 
o = 7/8, w = 0.5, and four different combinations of (3, y, and tol. The second 
order differential equation has the form 6= f (7,0, 8). This is expressed as a first 
order matrix system by letting y1 — 0, yo — 6, which gives 


Yi = Yo, Yo = f(T, Y1, ya). 


A function describing the system for solution by ode45 is provided at the end of this 
section. Parameters 06, wo, a, C, and @ are passed as global variables. 
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We can examine how well the numerically integrated 0 match 0 e by using the error 
measure 


|A(7) — 6«(7)]. 


Furthermore, the exact solution satisfies 


02 + (ĝe Jw)? = 62. 


Plotting 6/(@9w) on a horizontal axis and 6/00 on a vertical axis should produce a 
unit circle. Violation of that condition signals loss of solution accuracy. 

How certain physical parameters and numerical tolerances affect terms in this 
problem can be demonstrated by the following four data cases: 


1. 


The spring is soft and initially unstretched. A liberal integration tolerance is 
used. 


. The spring is soft and initially unstretched. A stringent integration tolerance is 


used. 


The spring is stiff and initially stretched. A liberal integration tolerance is 
used. 


The spring is stiff and initially stretched. A stringent integration tolerance is 
used. 


The curves in Figure 8.4 show the following facts: 


1. 


When the spring is unstretched initially, the numerical solution goes unstable 
quickly. 


Stretching the spring initially and increasing the spring constant improves nu- 
merical stability of the solution. 


Decreasing the integration tolerance increases the time period over which the 
solution is valid. 


An additional curve illustrating the numerical inaccuracy of results for Case 1 ap- 
pears in Figure 8.5. A plot of 0(7) versus 0(7) /w should produce a circle. However, 
solution points quickly depart from the desired locus. 
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Error Growth in Numerical Solution 


e 
T1 
[7] 
c 
o 
£ 
5 
? 40H 4 
10 ——= Case 1: alp=0.1, bet=1, gam=1, tol=0.0001 
puentes Case 2: alp=0.1, bet=1, gam=1, tol=1e-010 
se Case 3: alp=0.1, bet=4, gam=0.5, tol=0.0001 
Case 4: alp=0.1, bet=4, gam=0.5, tol=1e-010 
10” 1 1 1 1 1 
0 5 10 15 20 25 30 
dimensionless time 
Figure 8.4: Error Growth in Numerical Solution 
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0 versus ( 0'(1) / œ ) for Case One 


1 T T T T T T T 


O'()/o 


Figure 8.5: 6 versus (6’(7)/w) for Case One 
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MATLAB Example 


Program prun 


: function prun 
^ Example: prun 


^ Dynamics of an inverted pendulum integrated 
^ by use of ode45. 


^ User m functions required: pinvert, mom 


: global ncal 
. th0O=pi/8; w=.5; tmax=30; ncal=0; 


. fprintf(’\nFORCED OSCILLATION OF AN ?); 
. fprintf C INVERTED PENDULUM\n’) ; 
; fprintf(’\nNote: Generating four sets of\n’); 


> fprintf(?numerical results takes a while.\n’); 


. 4^ loose spring with liberal tolerance 
; alp=0.1; bet-1.0; gam=1.0; tol-1.e-4; 
. al=num2str(alp); bi-num2str(bet); 

. g1=num2str (gam); ei-num2str(tol); 

: options=odeset(’RelTol’ ,tol); 


2: [ti,ziJ= ... 


ode45(@pinvert, [0,tmax] ,[0;w*thO],... 
options,alp,bet,gam,th0,w) ; 


s nl=ncal; ncal=0; 


z. ^ loose spring with stringent tolerance 
2: alp-0.1; bet-1.0; gam-1.0; tol-1.e-10; 
2: a2-num2str(alp); b2-num2str(bet); 

30: g2-num2str(gam); e2-num2str(tol); 


: options-odeset("RelTo1?,to1); 

: [t2,z2]= ... 

ode45(@pinvert, [0,tmax] ,[0;w*thO],... 
options,alp,bet,gam,th0,w) ; 

: n2=ncal; ncal=0; 


3: ^ tight spring with liberal tolerance 
3: alp-0.1; bet-4.0; gam-0.5; tol-1.e-4; 
3: ad=num2str(alp); b3-num2str(bet); 


. g3=num2str (gam); e3=num2str(tol) ; 
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: options-odeset("RelTo1l?,tol); 
;: [t3,z3]= ... 


ode45(@pinvert, [0,tmax] ,[0;w*thO],... 
options,alp,bet,gam,th0,w) ; 


5: n8=ncal; ncal=0; 


. ^ tight spring with stringent tolerance 
; alp=0.1; bet-4.0; gam-0.5; tol-1.e-10; 

. a4-num2str(alp); b4-num2str(bet); 

so: g4-num2str(gam); e4=num2str(tol) ; 

51: options-odeset (’RelTol’ ,tol) ; 

s: [t4,z4]= ... 


ode45(@pinvert, [0,tmax] ,[0;w*thO],... 
options,alp,bet,gam,th0,w) ; 


s n4-ncal; ncal-0; save pinvert.mat; 


st: ^ Plot results 
ss: clf; semilogy( 


ti,abs(zi(:,1)/thO-sin(w*t1)),"-r?,... 
t2,abs(z2(:,1)/thO0-sin(w*t2)),?--g,... 
t3,abs(z3(:,1)/th0-sin(w*t3)),’-.b’, 
t4,abs(z4(:,1)/th0-sin(w*t4)),’:m’); 


; title(’Error Growth in Numerical Solution’) 
; Xlabel(?dimensionless time’); 

5 ylabel('error measure’); 

. cl=[’Case 1: alp=’,al,’, bet=’,b1,’, gam=’, 


g1,?, tol-';et]; 


. c2=[’Case 2: alp=’,a2,’, bet=’,b2,’, gam=’, 


g2,?, tol=?’,e2]; 


. c8" [^Case 3: alp=’,a3,’, bet=’,b3,’, gam=’, 


p3.'. tols^,e3]; 


. c4- [Case 4: alp=’,a4,’, bet=’,b4,’, gam=’, 


g4,’, tol=’,e4]; 


. legend(c1,c2,c3,c4,4); shg 
s dum=input(’\nPress [Enter] to continue\n’,’s’); 
. print -deps pinvert 


. ^ plot a phase diagram for case 1 

: clf; plot(z1i(:,2)/w,z1(:,1)); 

: axis (’square?’); axis([-1,1,-1,1]); 

. xlabel(?’\theta’’ (\tau)/\omega’); ylabel(?Ntheta?); 
. title([’\theta versus ( \theta’’(\tau) / ? 


"Nomega ) for Case One’]); figure(gcf); 


. print -deps crclplt 
. disp? 7); disp’ A11 Done’); 
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. function zdot-pinvert(t,z,alp,bet,gam,thO,w) 


^ 

. 4 zdot-pinvert(t,z,alp,bet,gam,thO,w) 
VA € M ooo E E OE OE E E E E 

. ^ Equation of motion for the pendulum 
^ 

At - time value 

h Z - vector [theta ; thetadot] 

: 4 alp,bet,gam,th0,w 
^ - physical parameters in the 

uh differential equation 


:% zdot - time derivative of z 


; 4^ User m functions called: mom 


: global ncal 

; ncal-ncal*1; th-z(1); thd=z(2); 

: c=cos (th); s-sin(th); lam-sqrt(5-4*c); 
. zdot-[thd; mom(t,alp,bet,gam,thO,w)*... 


s-alp*thd-bet*s* (1-gam/lam)] ; 


Yee 
: function me-mom(t,alp,bet,gam,thO,w) 

^ 

^ me-mom(t,alp,bet,gam,thO,w) 

VA € — ^ ^ E too 

^ t - time 

^ alp,bet,gam,thO,w 
A - physical parameters in the 
cH differential equation 
. 4 me - driving moment needed to produce 
A exact solution 

% 


; 4^ User m functions called: none. 


. th-thO*sin(w*t); 

;: thd2w*thO*cos(w*t); thdd--th*w^2; 

. s=sin(th); c=cos(th); lam-sqrt(5-4*c); 
; me=thdd-st+alp*thd+bet*s* (1-gam/lam) ; 
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8.6 Dynamics of a Spinning Top 


The dynamics of a symmetrical spinning top can be analyzed simply by computing 
the path followed by the gravity center in Cartesian coordinates. Consider a top 
spinning with its apex (or tip) constrained to remain at the origin. The gravity center 
lies at position r along the axis of symmetry and the only applied forces are the 
weight —mgk through the gravity center and the support reaction at the tip of the 
top. The inertial properties involve a moment of inertia J, about the symmetry axis 
and a transverse inertial moment J+ relative to an axis normal to the symmetry axis 
and passing through the apex of the top. The velocity of the gravity center and the 
angular velocity €? are related by! 


v—r-—(xr. 


This implies that Q can be expressed in terms of radial and transverse components 
as 
Q = L? ru x v4 £r 


where Z = |r| and wa is the magnitude of the angular velocity component in the 
radial direction. The angular momentum with respect to the origin is therefore 


H = JU? rv x ut Jel lwar 


and the potential plus kinetic energy is given by 


where z is the height of the gravity center above the origin. 

The equations of motion can be found using the principle that the moment of all 
applied forces about the origin must equal the time rate of change of the correspond- 
ing angular momentum. Hence 


M = jer x at JU! [wav + war] 


where a = ù = ris the total acceleration of the gravity center. The radial component 
of the last equation is obtainable by a dot product with r to give 


r- M = Jalwa 


where simplifications result because r - (r x a) = 0 and r - v = 0. The remaining 
components of M for the transverse direction result by taking r x M and noting 
that 

r x (r x a) 2 (r- a)r — Ca — -la 


1Tn this section the quantities v, r, Q, H, M, and a all represent vector quantities. 
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where a; is the vector component of total acceleration normal to the direction of r. 
This leads to 
rx M — -Jia + Jol lwar x v. 


Since the gravity center moves on a spherical surface of radius £ centered at the 
origin, the radial acceleration is given by 


a, = -v -vlr 
and the total acceleration equation becomes 


rxM Jab wa 
Se + en 


o 
rxv—v-vl *r. 
Jt Jt 


a= 


In the case studied here, only the body weight —mgk causes a moment about the 
origin so . 
M=-mgrxk,r-M=0 


and . 
rx M — -mg [er - Phi 3 


The radial component of the moment equation simply gives wa = 0, so the axial 
component of angular velocity retains its initial value throughout the motion. 
Integrating the differential equations 


v=a,r=v 


numerically subject to appropriate initial conditions produces a trajectory of the grav- 
ity center motion. The simple formulation presented here treats x, y, and z as if they 
were independent variables even though 


254.) +Ê, LUz + yvy + Zu; — 0 


are implied. The type of analysis traditionally used in advanced dynamics books [48] 
would employ Euler angles, thereby assuring exact satisfaction of |r| = £. The accu- 
racy of the solution method proposed here can be checked by finding a) whether the 
total energy of the system remains constant and b) whether the component of angu- 
lar momentum in the z-direction remains constant. However, even when constraint 
conditions are satisfied exactly, reliability of numerical simulations of nonlinear sys- 
tems over long time periods becomes questionable due to accumulated inaccuracies 
caused by arithmetic roundoff and the approximate nature of integration formulas. 
The program toprun integrates the equations of motion and interprets the results. 
This program reads data to specify properties of a conical top along with the initial 
position and the angular velocity. Intrinsic function ode45 is employed to integrate 
the motion equation defined in function topde. The path followed by the gravity 
center is plotted and error measures regarding conservation of energy and angular 
momentum are computed. Figures 8.6 and 8.7 show results for a top having prop- 
erties given by the test case suggested in the interactive data input. A top which 
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Path of the Top Gravity Center 


z axis 


y axis 


x axis 


Figure 8.6: Path of the Top Gravity Center 


has its symmetry axis initially horizontal along the y-axis is given an angular veloc- 
ity of [0, 10, 2]. Integrating the equation of motion with an error tolerance of 10 ^? 
leads to the response shown in the Figure 8.6. Error measures computed regarding 
the fluctuation in predicted values of total energy and angular momentum about the 
z-axis (Figure 8.7) fluctuate about one part in 100,000. It appears that the analysis 
employing Cartesian coordinates does produce good results. 
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Percent Variation in Total Energy and z-axis Angular Momentum 
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Figure 8.7: Variation in Total Energy and z-axis Angular Momentum 
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Program Output and Code 


Program Toprun 


i function toprun 

2 ^ Example: toprun 

dup er ge ek gue 

ah 

5 4 Example that analyzes the response of a 
« 4 spinning conical top. 

Th 

s h User m functions required: 
a: h topde, cubrange, inputv 


11: disp(’ a 

12 disp([’*** Dynamics of a Homogeneous ’, 

3: 'Conical Top ***’]); disp(’ ’); 

u: disp([’Input the gravity constant and the ’, 
15: ’ body weight (try 32.2,5)’]); 

e [grav,wt]=inputv(’? ?); 

i, hass-wt/grav; tmp-zeros(3,1); 

18: disp(’ >); 

19: disp([’ Input the height and base radius ’, 
20: ’ (try 1,.5)?]); 

a: [ht,rb]-inputv(?? ?); len-.75*ht; 

z; jtrans=3*mass/20* (rb*rb+4*ht*ht) ; 

25; Jaxial=3*mass*rb*rb/10; 


24: disp(’ D 
z; disp([? Input a vector along the initial ’, 
26: axis direction (try 0,1,0)’]); 


27: [tmp(1) ,tmp(2) ,tmp(3)]=inputv(’? ?); 
23: e8=tmp(:)/norm(tmp); r0=len*e3; 


29: disp(’ 2 ye 
30: disp([’ Input the initial angular velocity ’, 
31: ’ (try 0,10,2)?]); 


as [tmp(1) ,tmp(2),tmp(3)]=inputv(?? ?); omega0=tmp; 
as omegax-e3'*omega0(:); rdot0=cross(omega0,r0) ; 

34: zO=[r0(:);rdot0(:)]; uz- [0:051]: 

35: ci-wt*len^2/jtrans; c2-omegax*jaxial/jtrans; 

3: disp? ?); 

s; disp([? Input tfinal,and the integration ’, 


38: ^tolerance (try 4.2, 1e-8)?]); 
3: [tfinLtolleinputy(/T 7"); disp? ^) 
a: fprintf( 
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A1: 


84: 


^"Please wait for solution of equations. Nn?); 


. ^ Integrate the equations of motion 
: odeoptn-odeset (’RelTol’ ,tol); 
s [tout,zout]-ode45(0topde, [0, tfinl],zO,... 


odeoptn,uz,ci,c2); 


: t=tout; x-zout(:,1); y-zout(:,2);. z-zout(:,3); 
. Vx=zout(:,4); vy=zout(:,5); vz-zout(:,6); 


5: 4 Compute total energy and angular momentum 

5s: c9-jtrans/(len*len); taxial-jaxial/2*omegax^2; 
s: r=zout(:,1:3)’; v=zout(:,4:6)’; 

ss etotal=(wt*r (3, :)+taxial+c3/2*sum(v.*v))’; 

s: h2 (jaxial*omegax/len*r*c3*cross(r,v))'; 


s: 4 Plot the path of the gravity center 

s; clf; axis(’equal’); 

s axis(cubrange([x(:),y(:),2(:)])); plot3(x,y,z); 
; title(’Path of the Top Gravity Center’); 

. Xlabel(’x axis’); ylabel(’y axis’); 

. Zlabel(’z axis’); grid on; figure(gcf); 

: disp? Scd Spo. 

. "Press [Enter] to plot error measures’), pause 
. ^ print -deps toppath 

s n=2:length(t) ; 


. ^ Compute energy and angular momentum error 

. ^ quantities and plot results 

. et=etotal(1); enrger-abs(100*(etotal(n)-et)/et); 
: hzs=abs(h(1,3)); 

. angmzer-abs (100* (h (n,3) -hzs) /hzs) ; 

. vec=Lenrger(:);angmzer(:)]; 

; minv=min(vec); maxv=max(vec) ; 


5: CLE; 

. semilogy(t(n),enrger,’-r’,t(n) ,angmzer,’:m’); 
; axis(’normal’); xlabel(’time’); 

. ylabel(’percent variation’); 

. title([’Percent Variation in Total Energy ’, 


^and z-axis Angular Momentum’]) ; 


; legend(’ Energy (Upper Curve)’, 


^ Ang. Mom. (Bottom Curve)’ ,4); 


. figure(gcf), pause 


^ print -deps topvar 
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95: 
. ^ for a symmetrical top. The vector z equals 
-% [r€:);v€:)] which contains the Cartesian 

. ^ components of the gravity center radius and 
. its velocity. 


. function zdot=topde(t,z,uz,c1,c2) 
0 


. 4 zdot-topde(t,z,uz,c1,c2) 


^ This function defines the equation of motion 


ray AEE - the time variable 

Az - the vector [x; y; Zz; vx; vy; vz] 
; 4 uz  - the vector [0;0;1] 

:% ci  - wt*len^2/jtrans 

: 4 c2 - omegax*jaxial/jtrans 


; 4 zdot - the time derivative of z 


; 4 User m functions called: none 


; zez(:); r2z(1:3); len-norm(r); ur=r/len; 


: 4 Make certain the input velocity is 

: 4 perpendicular to r 

;: v=zZ(4:6); v=v-(ur’ *v) *ur; 

. vdot=-c1* (uz-ur*ur (3) )+c2*cross(ur,v)- 


(Cv? *v) /len) *ur; 


. zdot=[v;vdot] ; 


. 4 function varargout=inputv (prompt) 
; 4 See Appendix B 


. 4 function range=cubrange (xyz, ovrsiz) 
; 4 See Appendix B 
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Dr 


8.7 Motion of a Projectile 


The problem of aiming a projectile to strike a distant target involves integrating a 
system of differential equations governing the motion and adjusting the initial incli- 
nation angle to achieve the desired hit [101]. A reasonable model for the projectile 
motion assumes atmospheric drag proportional to the square of the velocity. Conse- 
quently, the equations of motion are 


Ùz = —cUU, , Vy = —g — CUUy , 3 = Ug , Y= Vy 


where g is the gravity constant and c is a ballistic coefficient depending on such 
physical properties as the projectile shape and air density. 

The natural independent variable in the equations of motion is time. However, 
horizontal position x is a more desirable independent variable, since the target will 
be located at some distant point (x f, yy) relative to the initial position (0, 0) where 
the projectile is launched. We can formulate the differential equations in terms of x 
by using the relationship 


docendi uides ee 
dx Ur 
Then 
dy vy dv, dv, dvo, dv, 


— =U les 
dx vz’ dt "dr dt ? dx’ 
and the equations of motion become 


dy vw dt 1 dw dv, | —(g- cvv) 


dr v, dr vw dr ' dx Ug 
Taking a vector z defined by 
z = [vss vy; y; t] 
leads to a first order matrix differential equation 


dz [—cvvz; —(g + cvvy); vy; 1] 


da Ug 


zc 2 
v= Uz + Uy. 


The reader should note that an ill-posed problem can occur if the initial velocity of 
the projectile is not large enough so that the maximum desired value of x is reached 
before v, is reduced to zero from atmospheric drag. Consequently, error checking 
is needed to handle such a circumstance. The functions traject and projcteq em- 
ploy intrinsic function ode45 to compute the projectile trajectory. Graphical results 


where 
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Projectile Trajectory for Velocity Squared Drag 
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Figure 8.8: Projectile Trajectory for v? Drag Condition 


produced by the default data case appear in Figure 8.8. The function traject will be 
employed again in Chapter 12 for an optimization problem where a search procedure 
is used to compute the initial inclination angle needed to hit a target at some speci- 
fied distant position. In this section we simply provide the functions to integrate the 
equations of motion. 


Program Output and Code 


Function traject 


. function [y,x,t]-traject 
(angle,vinit,gravty,cdrag,xfinl,noplot) 
^ Ly,x,t]-traject 
(angle,vinit,gravty,cdrag,xfinl,noplot) 


. ^ This function integrates the dynamical 

. ^ equations for a projectile subjected to 
gravity loading and atmospheric drag 

1: 4 proportional to the square of the velocity. 


QW ub XA gr uec ei INE. em 
5 


e 
e 
ex 
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35: 


ao gg og og oc cq 
w = 


ou 


N 


5 


. 4 angle - 
cA vinit - 


hh gravty - 
. 4 cdrag - 


2: 4 xfinl - 


2: ^4 noplot - 


CA Wu pe - 


4 grav, - 
. 4 dragc 
CA vtol ž - 


initial inclination of the 
projectile in degrees 

initial velocity of the projectile 
(muzzle velocity) 

the gravitational constant 

drag coefficient specifying the drag 
force per unit mass which equals 
cdrag*velocity^2. 

the projectile is fired toward the 
right from x=0. xfinl is the 
largest x value for which the 
solution is computed. The initial 
velocity must be large enough that 
atmospheric damping does not reduce 
the horizontal velocity to zero 
before xfinl is reached. Otherwise 
an error termination will occur. 
plotting of the trajectory is 
omitted when this parameter is 
given an input value 


the y, x and time vectors produced 
by integrating the equations of 
motion 


37: 4 Global variables: 


two constants replicating gravty and 
cdrag, for use in function projcteq 
equal to vinit/1e6, used in projcteq 
to check whether the horizontal 
velocity has been reduced to zero 


: ^ User m functions called: projcteq 
: global grav dragc vtol 
. ^ Default data case generated when input is null 


; if nargin -- 
angle-45; 


vinit-600; gravty-32.2; 


cdrag-0.002; xfinl-1000; 


: end; 


. ^ Assign global variables and evaluate 
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s: 4 initial velocity 

s; grav=gravty; dragc=cdrag; ang-pi/180*angle; 
ss Vtol-vinit/1e6; 

. Z0=[vinit*cos(ang); vinit*sin(ang); 0; 0]; 


. ^ Integrate the equations of motion defined 
. ^ in function projcteq 

. deoptn-odeset ( RelTol',1e-6); 

: [x,z]=ode45(@projcteq, [0,xfinl] ,z0,deoptn) ; 


: y=z(:,3); t=z(:,4); n=length(x) ; 
. xf=x(n); yf=y(n); 


. 4^ Plot the trajectory curve 
; if nargin < 6 


plotO y. =? XR ovp. ug") 

xlabel(?x axis’); ylabel(’y axis’); 

title([’Projectile Trajectory for ’, 
’ Velocity Squared Drag’]); 

axis(’equal’); grid on; figure(gcf) ; 

^ print -deps trajplot 


;: end 


. function zp-projcteq(x,z) 

. 4 Zp=projcteq(x,z) 

. ^ This function defines the equation of motion 
. ^ for a projectile loaded by gravity and 

. ^ atmospheric drag proportional to the square 


. ^ of the velocity. 


5. - the horizontal spatial variable 
AZ - a vector containing [vx; vy; y; tl; 


| Zp - the derivative dz/dx which equals 
Bs h [x^ (x); vy?’ (x); y a); e£ (z)]; 


; 4 Global variables: 


. 4 grav - the gravity constant 
. 4 dragc - the drag coefficient divided by 
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o: ^ gravity 


o» ^ vtol - a global variable used to check 
os: h whether vx is zero 
oa: V 
os 4 User m functions called: none 
0 
OG: Jos mie rh ba n IECUOCAZSIPUATCQYTERQCKMLA E po So hay PT REO A 


os global grav dragc vtol 
o» VX7Z(1); vy=z(2); v-2sqrt(vx^2*vy^2); 


; 4 Check to see whether drag reduced the 

z ^ horizontal velocity to zero before the 

» ^ xfinl was reached. 

4 if abs(vx) < vtol 

5 disp? 7); 

€ — disp (xeetekecokoetelekokoeteokokokoleekooleekejololelelelolelelekoiolek? ) 5 
7z disp’ ERROR in function projcteq. The ?); 

s disp(’ initial velocity of the projectile’); 
o X disp( was not large enough for xfinal to’); 
2:  disp(? be reached.’); 

2:  disp(C EXECUTION IS TERMINATED. ’); 

22: — disp CREB REO ESAS IES IIIA?) 5 
2  disp(’ ’),error(’ ?); 


24 end 
2» Zp=[-dragc*xv; -(grav*dragc*v*vy)/vx; 
26: vy/vx; 1/vx]; 


E 


8.8 Example on Dynamics of a Chain with Specified End Motion 


The dynamics of flexible cables is often modeled using a chain of rigid links con- 
nected by frictionless joints. A chain having specified end motions illustrates the 
behavior of a system governed by nonlinear equations of motion and auxiliary al- 
gebraic constraints. In particular, we will study a gravity loaded cable fixed at both 
ends. The total cable length exceeds the distance between supports, so that the static 
deflection configuration resembles a catenary. 

A simple derivation of the equations of motion employing principles of rigid body 
dynamics is given next. Readers not versed in principles of rigid body dynamics [48] 
may nevertheless understand the subsequent programs by analyzing the equations of 
motion which have a concise mathematical form. The numerical solutions vividly 
illustrate some numerical difficulties typically encountered in multibody dynamical 
studies. Such problems are both computationally intensive, as well as highly sensi- 
tive to accumulated effects of numerical error. 

The mathematical model of interest is the two-dimensional motion of a cable (or 
chain) having n rigid links connected by frictionless joints. A typical link : has its 
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R(t) 


Figure 8.9: Chain with Specified End Motion 


mass m, concentrated at one end. The geometry is depicted in Figure 8.9. The 
chain ends undergo specified motions Ro(t) = [Xo(t) ; Yo(t)] for the first link 
and R,,(t) = [Xn(t) ; Yn(t)] for the last link. The direction vector along link 2 is 
described by r, = |x, ; y] = 4[cos(0,) ; sin(0,)]. We assume that each joint 2 is 
subjected to a force F, = [fsı ; fy] where 0 <2 € n. Index values : = 0 and 
2 = n denote unknown constraint forces which must act at the outer ends of the first 
and last links to achieve the required end displacements. The forces applied at the 
interior joints are arbitrary. It is convenient to characterize the dynamics of each link 
in terms of its direction angle. Thus 


f Mh 8, ix oe ys i5 
,—T,0,, T, — rjO, - r, 0 — r,0, — r6; 


where primes and dots denote differentiation with respect to 0, and t, respectively. 
Therefore 


r= [79 ; 2,]0, t= [-9. ; 2,]0, To [x, ; y,]02. 


The global position vector of joint ? is 
R=R +ð r,=Rot+>> S 
j=l j=l 


where the symbol < k >= 1 for k > 0, and 0 for k < 0. Consequently, the velocity 
and acceleration of joint 2 are 


n 
R= Roc «1-3» rb, 
j—1 


TL TL 
R,= Rot) <is> ri -YO «1-32 rb. 
j=l 


j=l 
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The ends of the chain each have specified motions; so not all of the inclination angles 
are independent. Consequently, 


Y T; = Ra —- Ro, 
j—1 


y xcd 


j=l 

n n 
Nr) - r9 = Ra- Ro. 
j=l J=1 


Combining the last constraint equation with equations of motion written for masses 
m3,::: , Mn yields a complete system of (n + 2) equations determining à, XE On 
and the components of F „n. The fact that all masses are concentrated at frictionless 
joints shows that link 2 is a two-force member carrying an internal load directed along 
r,. Consequently, the D’ Alembert principle [48] implies that the sum of all external 
and inertial loads from joints 2,2 + 1,--- , must give a resultant passing through 
joint 2 in the direction of r,. Since r, and r, are perpendicular, requiring a vector to 
be in the direction of r, is equivalent to making it normal to ri. Therefore 


r,- Y <3-t> {F-m À} =0,1<i<n. 
j—1 


The last n equations involve 6, and two end force components fen and fyn. Some 
algebraic rearrangement results in a matrix differential equation of concise form con- 
taining several auxiliary coefficients defined as follows: 


n 
b =X m, m= Mm e L<t<n,1< 754, 
kat 


045 = T3425 + 3493) ; l<isn,1l<jgcn 


b,-—myg(zxy — L34), L<r<n,l<yg<n 


n—1 n—1 
bacs? (fuh y fas q EU 
I= 


jJ 


For 2 = n, the last two sums mean prn = Pyn = 0. Furthermore, we denote the ac- 
celeration components of the chain ends as Ro = [azo ; Gyo] and Ry = [aan ; Ayn]. 
Using the various quantities just defined, the equations of motion become 


n n 
p» 0,0; sis dlan Te Vu fun = 5 b03 T Lr (Pyr b, ayo) Ys (Dar bas) 
j=l 


j=l 
=e,,l<t<n. 
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The remaining two components of the constraint equations completing the system 
are 


n n 
RN ^2 el 
X Y0; =r 1 x30; — Gan + Azo = €n41, 
j=l j=l 
n 


n 

" d E 
1 £50; = 1 y;0; + Gyn — Ayo = €n42- 
j=1 


j=l 
Consequently, we get the following symmetric matrix equation to solve for 6, etta Ön, 
fan and fyn 
A XY 6 
X70 0 Tanl = [E] 
Y? 94 o 


where X, Y, E and 0 are column matrices, and the matrix A = [a,;| is symmetric. 
Because most numerical integrators for differential equations solve first order sys- 
tems, it is convenient to employ the vector Z — [0 ; ô] having 2n components. Then 
the differential equation Z-H (t, Z) is completely defined when 6 has been com- 
puted for known Z. The system is integrated numerically to give 0 and Ê as functions 
of time. These quantities can then be used to compute the global Cartesian coordi- 
nates of the link configurations, thereby completely describing the time history of 
the chain. 

The general equations of motion simplify somewhat when the chain ends are fixed 
and the external forces only involve gravity loads. Then pz, = 0 and py, = —g(b, — 
bn) which gives 


n 
5 My21) Am YY); = La fun T Yı fen = 
j—1 


g(b, — bn) + 5 Mary (LeYy — 2,y.)07 „In. 
j—1 


The last two equations to complete the set are: 
TL TL n n 
2 is " i5 
3505593772939 225 ot 
J=1 J=1 j=l j=l 


A program was written to simulate motion of a cable fixed at both ends and released 
from rest. The cable falls under the influence of gravity from an initially elevated 
position. Function ode45 is used to perform the numerical integration. The program 
consists of three functions cablenl, plotmotn, and equamo. Function cablenl cre- 
ates the data, calls ode45 to perform the integration, and displays the output from the 
simulation. Function plotmotn plots the motion for specified time limits. Results 
can be shown using animation or plots superimposing successive positions of the 
cable. Most of the analysis in the program is performed in function equamo which 
forms the equations of motion which are passed to ode45 for integration. 
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A configuration with eight identical links was specified. For simplicity, the total 
mass, total cable length, and gravity constant were all normalized to equal unity. 
The numerical integration error was controlled using a relative tolerance of 1e-6 and 
an absolute error tolerance of le-8. Results of the simulation appear below. Fig- 
ure 8.10 shows cable positions during the early stages of motion when results of 
the numerical integration are reliable. However, the numerical solution eventually 
becomes worthless due to accumulated numerical inaccuracies yielding the motion 
predictions indicated in Figure 8.11. The nature of the error growth can be seen 
clearly in Figure 8.12 which plots the z-coordinate of the chain midpoint as a func- 
tion of time. Since the chosen mass distribution and initial deflection is symmetrical 
about the middle, the subsequent motion will remain symmetrical unless the numer- 
ical solution becomes invalid. The x coordinate of the midpoint should remain at a 
constant value of v2 /4, but it appears to abruptly go unstable near t = 18. More 
careful examination indicates that this numerical instability does not actually occur 
suddenly. Instead, it grows exponentially from the outset of the simulation. The error 
is caused by the accumulation of truncation errors intrinsic to the numerical integra- 
tion process allowing errors at each step which are regulated within a small but finite 
tolerance. A global measure of symmetry loss of the y deflection pattern is plotted 
on a semilog scale in Figure 8.13. Note that the error curve has a nearly linear slope 
until the solution degenerates completely near t = 18. The reader can verify that 
choosing less stringent error tolerances produces solutions which become inaccurate 
sooner than £ = 18. It should also be observed that this dynamical model exhibits 
another important characteristic of highly nonlinear systems, namely, extreme sen- 
sitivity to physical properties. Note that shortening the last link by only one part 
in ten thousand makes the system deflection quickly lose all appearance of symme- 
try by £ = 6. Hence, two systems having nearly identical physical parameters and 
initial conditions may behave very differently a short time after motion is initiated. 
The conclusion implied is that analysts should thoroughly explore how parameter 
variations affect response predictions in nonlinear models. 
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Figure 8.10: Motion During Initial Phase 


MOTION OF A FALLING CABLE 
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Figure 8.12: Horizontal Position of the Cable Midpoint 
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Figure 8.13: Growing Loss of Symmetry in Vertical Deflection 
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Example on Nonlinear Cable Motion 


Program cablenl 


GOFAL gv. os oun Ne. es 


e 


25: 
. ^ function equamo 
27: global first n m. len grav. b. mas. py. 


. function [t,x,y,theta,cptim]-cablenl 


^ [t,x,y,theta,cptim]-cablenl 
^ Example: cablenl 


^ Numerical integration of the matrix 
^ differential equations for the nonlinear 
^ dynamics of a cable of rigid links with 
^ the outer ends of the cable fixed. 


CA t - time vector for the solution 

. 4 x,y  - matrices with nodal coordinates 
C Stored in the columns. The time 
sede history of point j is in x(:,j) 
i and y(:,j) 

. ^ theta - matrix with inclination angles 
Ne stored in the columns 

. ^ cptim - number of seconds to integrate 
Sh the equations of motion 


:% User m functions required: 
(v plotmotn, equamo 


22; Clear all; close; 


^ Make variables global for use by 


2: fprintf(’?\nNONLINEAR DYNAMICS OF A ?) 

. fprintf C FALLING CABLE\n’ ) 

: fprintf (... 

: ?\nNote: The calculations take awhile\n’) 


. ^ Set up data for a cable of n. links, 
. ^ initially arranged in a triangular 
36: ^ deflection configuration. 


as ^ parameter controlling initialization of 
39: ^ auxiliary parameters used in function 
. 4 equamo 
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a: first 7-1; 

a: 4 number of links in the cable 

4; n. 78; n=n_; nh=n_/2; 

44 4 Vector of lengths and gravity constant 
i: len -21/n*ones(n,1); grav -1; 

4: 4 Vector of mass constants 

a: M_=ones(1,n_)/n_; 


a: ^ initial position angles 
. th0=pi/4* [ones (nh, 1) ; -ones (nh, 1)] ; 
. tdO-zeros(size(thO)); z0=[th0;td0] ; 


N e Gc 


. ^ time limits, integration tolerances, 
. ^ and the number of solution points 

; tmin=0; tmax-25; nt-201; 

. t=linspace(0,tmax,nt)’; 

. tolrel-1e-6; tolabs-1e-8; len-len ; 


00 ND C e œ 


a a oc anana 


Koj 


. ^ Perform the numerical integration using a 

. ^ variable stepsize Runge-Kutta integrator 

; tic; 

. odetol=odeset(’RelTol’ ,tolrel,’AbsTol’ ,tolabs) ; 
. [t,w]=ode45 (@equamo ,t,z0,odetol) ; 

. theta=w(:,1:n); cptim=toc; 

65: 

os: ^ Compute node point coordinates 

6: Z=[zeros(nt,1),repmat(len’ ,nt, 1) . *exp(i*theta)]; 
cs Z=cumsum(Z.’).’; x=real(Z); y=imag(Z) ; 


Q oo o o 
e Ù N e OC 


7; 4^ Plot the horizontal position of the midpoint 
7: clf; plot(t,x(:,1+n_ 7209; 

72: ylabel(?x coordinate’); xlabel(’time’) 

7; title([’Horizontal Position of the ’ 

74: "Cable Midpoint’]) 

7s: grid on; figure(gcf); 

75 h print -deps xmidl 


z: Gisp(’ ?), disp(... 
7: "Press [Enter] to see the error growth curve’); 
s: pause, close 


sz: ^ Show error growth indicated by symmetry 

s» ^ loss of the vertical deflection symmetry. 

s: ^ An approximately linear trend on the semilog 

s ^ plot indicates exponential growth of the error. 
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. unsymer-sqrt (sum((y-y (:,end:-1:1)).^2,2)); 
. hold off; axis(’normal’); clf; 

. semilogy(t,unsymer) ; 

. Xlabel(’time’); ylabel(’asymmetry error’); 
; title([’Growing Loss of Symmetry in ’ 


"Vertical Deflection’]); 


. grid on; figure(gcf); 
. ^ print -deps unsymerr 


s disp? !), disp(... 
. "Press [Enter] to see the response animation’); 


: ^ Show animation of the cable response 

: disp? 3) 

: disp(’The motion can be animated or a trace?) 
: disp can be shown for successive positions’) 
. disp([? between t = ’,num2str(tmin),... 


> and t = ’ ,num2str(tmax)]) 


s ^ Plot the position for different times limits 
; titl=’CABLE MOTION FOR T = ’; 
: while 1 


dispC ?), disp(... 

['Choose a plot option (1 <=> animate, ’,... 
? 2 <=> trace,’]) 

opt=input(’3 <=> stop) > ? ’); 


if opt==3, break, end 
dispC ’), disp(... 
'Give a time vector such as 0:.1:15’) 
Tp=input(’Time vector > ? ’,’s’); 
if isempty(Tp), break, end 
tp=eval (Tp); tp=tp(:); T=[titl,Tp] ; 
xp=interplq(t,x,tp); yp=interpiq(t,y,tp); 
if opt ==1, plotmotn(xp,yp,T) 
else, plotmotn(xp,yp,T,1), end 

; end 


: fprintf(’\nAll Done\n’) 


: function plotmotn(x,y,titl,isave) 
=% 
: 4 plotmotn(x,y,titl,isave) 

0 


: 4 This function plots the cable time 
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35: 


anton [9 e C I =. © 


anra&aa&#a&#aeanaa&#aunw&4ia 


e 


. 4 history described by coordinate values 
: 4 Stored in the rows of matrices x and y. 


34 ^ X,Y  - matrices having successive rows 
A which describe position 
36. h configurations for the cable 


; 4 titl - a title shown on the plots 
. 4 isave - parameter controlling the form 


39: h of output. When isave is not input, 
A only one position at a time is shown 
oe in rapid succession to animate the 
bee motion. If isave is given a value, 

a: h then successive are all shown at 
NA once to illustrate a kinematic 
sh trace of the motion history. 


; 4 User m functions called: none 


; 4^ Set a square window to contain all 

: 4 possible positions 

;: [Ünt, n] size GO ; 

; if nargin--4, save -1; else, save=0; end 
; xmin=min(x(:)); xmax-max(x(:)); 

; ymin=min(y(:)); ymax-max(y(:)); 

. W=max (xmax-xmin,ymax-ymin)/2; 

; xmd- (xmin*xmax)/2; ymd=(ymintymax) /2; 

: hold off; clf; axis(’normal’); axis(’equal’); 
: range- [xmd-v , xmd+w , ymd-v , ymd+w] ; 

: title(titl) 

: Xlabel(’x axis’); ylabel(’y axis?) 

; if save== 


for j-1:nt 
xj=x(j,:); yj=y(j,:); 
plot(xj,yj,?-k’,xj,yj,’o0k°); 
axis(range), axis off 
title(titl) 
figure(gcf), drawnow, pause(.1) 
end 
pause (2) 


; else 


hold off; close 

for j-1:nt 
xj=x(j,:); yj=y(j,:); 
plot(xj,yj,?-k’,xj,yj,’ok°); 
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2 
: nzn, ; len=len_; 
Ot 


axis(range), axis off, hold on 
end 
Title (itl) 
figure(gcf), drawnow, hold off, pause(2) 
nd 


Save plot history for subsequent printing 
print -deps plotmotn 


unction zdot-equamo(t,z) 


zdot-equamo(t,z) 
Equation of motion for a cable fixed at 
both ends and loaded by gravity forces only 


t current time value 

Z column vector defined by 
[thet (t) ;theta’ (t)] 

zdot column vector defined by 


the concatenation 
z'(t) = [theta (t) ;theta?? (t)] 


User m functions called: none. 


Values accessed as global variables 
lobal first n m len grav, b. mas. py. 


Initialize parameters first time 
function is called 
f first --1, first -0; 

mass parameters 

m -m (:); b -flipud(cumsum(flipud(m ))); 
mas, -b (:,ones(n ,1)); 

mas -tril(mas )-*tril(mas. ,-1)'; 

load effects from gravity forces 
py---grav. *(b. -b (n )); 
nd 


Solve for zdot = [theta’(t); theta" (t)]; 


h-z(1:n); td=z(n+1:2*n); td2-td.*td; 
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221: X7len.*cos(th); y=len.*sin(th) ; 


23: 4 Matrix of mass coefficients and 
24: 4 constraint conditions 

2:5; amat=[[mas_.*(x*x’+y*y’),x,y]; 

226: [xy :26008(2,2) ] ^15 


228: h Right side vector involves applied forces 
29: 4 and inertial terms 
230. bmat=x*y’; bmat-mas, .*(bmat-bmat?); 


232: 4 Solve for angular acceleration. 
233: 4 Most computation occurs here. 
234: SOln=amat\[x.*py_tbmat*td2; y’*td2; -x’*td2]; 


236: h Final result needed for use by the 
237: h numerical integrator 
238 Zdot-[td; soln(1:n)]; 


E: SeSe 


8.9 Dynamics of an Elastic Chain 


The preceding article analyzed a chain of rigid links requiring only one rotation 
angle per link. Next we study a similar model of an elastic chain involving sev- 
eral point masses connected by elastic springs which can only support tension. The 
equations of motion are easy to formulate in terms of the horizontal and vertical coor- 
dinates of each mass. The dimensionality needed to handle the elastic chain is twice 
that needed for a similar rigid link model. It is natural to utilize a three-dimensional 
model that easily simplifies for two dimensional motion. 

Consider a chain having n mass particles 

mj, l<jgen 


connected by n + 1 springs having unstretched lengths 


The position of particle m; is denoted by vector r; with ro(t) and r,,41(t) signi- 
fying the outer end positions of the first and last springs, which are assumed to be 
known functions of time. Furthermore, concentrated forces P ;(t) are applied to the 
particles. The tensile force in spring number j is 


T; = kj (1 —1j/L;) (L; > lj) Rj 


where 
R;—rja-rj Lj = | yl, 
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and k; denotes a spring constant. Then the equations of motion are given by 
tjt) =v; , €;(t = (P; + T; -Tjs1-cjvj)/ m, 1€ j&n 


where viscous drag forces defined by the particle velocities times damping coeffi- 
cients c; are included. These equations are easy to form using array operations. 
Furthermore, the two-dimensional case can be simplified further by using complex 
numbers to represent the particle positions. 

A program was written to compute the response of a chain released from at rest in 
a horizontal position with the springs unstretched. The chain is subjected to gravity 
loading and the ends of the chain are rotated at constant speed around circular paths. 
The left and right ends rotate counterclockwise and clockwise respectively. A special 
case where the right end of the chain is free is provided by setting the last spring 
constant to zero. Another case where the chain ends do not move occurs when the 
radii of the end path motions are set to zero. 

The following program called sprnchan computes the response of a chain with an 
arbitrary number of identical masses connected by identical springs. The radii and 
the rotation rate of the end motions, as well as the amount of viscous damping can 
be changed easily. Function sprnchan reads data from function chaindata and calls 
ode45 to integrate the equations of motion which are formed with functions spreq- 
mof and endmo. Using the output from ode45, function plotmotn provides visual 
descriptions of the response. The motion can be presented using either animation or 
by superimposing plots of successive positions of the chain in chosen time intervals. 
To run a different problem, the sample data function chaindata can be saved using 
a different name; and the variables n, tmax, nt, fixorfree, rend, omega, and cdamp 
can be changed appropriately. Furthermore, modifying the program to handle dif- 
ferent variations of stiffness and mass, as well as different end conditions would be 
straightforward. Figures 8.14 and 8.15 show program results where 1) the left end of 
the chain was rotated and the right end was detached and 2) both ends of the chain 
were rotated simultaneously in opposite directions. The time response was computed 
for a maximum time value of 20, but the chosen time traces only show small subin- 
tervals chosen so that successive positions do not overlap excessively. Readers may 
find it interesting to observe the animation responses resulting from different data 
choices. 
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ELASTIC CHAIN MOTION FOR [cdamp,omega] = [1 , 6] and T = 0:.08:1.5 
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Figure 8.14: Chain with Left End Rotating and Right End Free 


[cdamp,omega] =[1,6] , O «t « 0.6 


Figure 8.15: Chain with Both Ends Rotating 
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Program for Elastic Chain Dynamics 


Program sprnchan 


e 


25: 


Qo ARIE gv. eo Qoo UN. om 


. function [t,z,cptim]-sprnchan 


[t,z,cptim]-sprnchan 


DYNAMIC SIMULATION OF AN ELASTIC CHAIN 
This program simulates the dynamics of an elastic 
chain modeled by a series of mass particles joined 
by elastic springs. The outer springs at each end 
are connected to foundations moving on circular 
paths at constant speed. The system is released from 
rest in a horizontal position. Forces on the system 
include gravity, linear viscous drag, and foundation 
motion. If the last spring in the chain is assigned 
zero stiffness, then the last particle is freed from 
the foundation and a swinging chain with the upper 
end shaken is analyzed. The principal variables for 
the problem are listed below. Different data choices 
can be made by changing function chaindata. 


tlim - 


m = 
k PE 


tolrel - 
tolabs - 


vector of time values at which the 

Solution is computed 

vector of mass values for the particles 
vector of stiffness values for springs 
connecting the particles. If the last 
Spring constant is set to zero, then the 
right end constraint is removed 

vector of unstretched spring lengths 
complex position coordinate of the outer 
end of the last spring (assuming the outer 
end of the first spring is held at z-0) 
vector of complex initial displacement 
values for each mass particle. Initial 
velocity values are zero. 

vector of constant complex force components 
applied to the individual masses 

vector of damping coefficients specifying 
drag on each particle linearly proportional 
to the particle velocity 

relative error tolerance for function ode45 
absolute error tolerance for function ode45 
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65: 
. datname=input(’chaindata as an example > ? ’,’s’); 
. eval([? [n, tmax, nt , fixorfree,rend,omega,cdamp]-?,... 


85: 


db - vector of times returned by ode45 


AZ - matrix of complex position and velocity 
iu values returned by ode45. A typical row 
c z(j,:) gives the system position and 
ny velocity for time t(j). The first half of 
is the row contains complex position values 
2h and the last half contains velocity values 
. ^ omega - frequency at which the ends of the chain 
KU. are shaken 

^ yend - amplitude of the vertical motion of the 

% chain ends. If this is set to zero then 

% the chain ends do not move 

^ endmo  - the function defining the end motion of 

p^ the chain 


. ^ spreqmof - the function defining the equation of 


h motion to be integrated using ode45 


^ User m functions called: chaindata, spreqmof, 
y/ endmo, plotmotn 


: global zend omega Rend 


. fprintf(’?\nDYNAMICS OF A FALLING ELASTIC CHAIN\n\n’) 


disp(’Give a file name to define the data. Try’) 


datname,’;’]); 


. ^ The following data values are scaled in terms of 
. 4^ the parameters returned by the data input function 


. ^ Time vector for solution output 
. tmin-0; tlim-linspace(tmin,tmax,nt)'; 


. ^ Number of masses, gravity constant, mass vector 
. g=32.2; len0-1; mas-1/g; m-mas*ones(n,1); 


: ^ Spring lengths and spring constants 
. L=lenO*ones(n+1,1); ksp-5*mas*g*(n*1)/(2*1en0); 
. k-ksp*ones (n*1,1) ; 


; 4 If the far end of the chain is free, then the 
. ^ last spring constant is set equal to zero 


k(n+1)=fixorfree*k(n+1) ; 
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100: 


; fext--i*g*m; tolrel-1e-6;  tolabs-1e-8; 


. ^ Viscous damping coefficients 
; c=cdamp*sqrt (mas*ksp) /40*ones (n, 1) ; 


: ^ Chain end position and initial position of 
. ^ each mass. Parameters concerning the end 

. ^ positions are passed as global variables. 

: ^ global zend omega Rend 

; zend-lenO*(n*1); zinit-cumsum(L(1:n)); 

: Rend=rend*zend; 


. ^ Function name giving end position of the chain 
;: re=@endmo; 


^ Gravity forces and integration tolerance 


; ^ Initial conditions for the ode45 integrator 
: n=length(m); rO-[zinit;zeros(n,1)]; 


» ^ Integrate equations of motion 

: options = odeset(’reltol’ ,tolrel,’abstol’ ,tolabs) ; 
. fprintf(’\nPlease Wait While the Equations\n’) 

: fprintf(?of Motion Are Being Integrated\n’) 

; pause(1), tic; 


: [t,r]=ode45(@spreqmof ,tlim,r0O,options,... 


m,k,L,re,fext,c); 


: cptim-toc; cpt-num2str(fix(10*cptim)/10); 
: fprintf (... 
: [’?\nComputation time was ’,cpt,’ seconds\n’]) 


. 4 Extract displacement history and add 
. 4 end positions 

; R=endmo(t); z=(R(:,1),r¢€:,1:n)]; 

. if dne) <0, z=[z,R(:,2)]; end 

: X=real(z); Y-imag(z); 


; 4 Show animation or motion trace of the response. 
. 4 dispC Press [Enter] to continue’), pause 

: disp? 7?) 

: disp(’The motion can be animated or a trace’) 

. disp(’can be shown for successive positions’) 

. disp([’between t = ’,num2str(tmin),... 
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> and t = ’ ,num2str(tmax)]) 


. titl=[ ELASTIC CHAIN MOTION FOR ’, 


33 ^[cdamp,omega] = [’,num2str(cdamp),’ , ’ 
34; num2str(omega),’ ] and T = ']; 

35: 

36: ^ Plot the position for different times limits 
37: While 1 

ss — dispC 7), disp(... 

a» [?Choose a plot option (1 <=> animate, ’,... 
40: ? 2 <=> trace,?]) 

a:  Opt-input(?3 <=> stop) > ? ’); 

42: if opt==3, break, end 

a: disp ’), disp(... 

44: 'Give a time vector such as 0:.1:15?) 

a:  Tp=input(’Time vector > ? ’,’s’); 

a: if isempty(Tp), break, end 

i. tp=eval(Tp); tp=tp(:); T=[titl,Tp]; 

as — Xp-interpiq(t,X,tp); yp=interplq(t,Y,tp); 

a: if opt ==1, plotmotn(xp,yp,T) 

s. else, plotmotn(xp,yp,T,1), end 

si; end 


E 


5: ^ Save plot history for subsequent printing 
54 ^ print -deps plotmotn 


s: fprintf(’\nAll Done\n’) 


: function [n,tmax,nt,fixorfree,rend,omega,... 


cdamp]=chaindata 


: 4 [n,tmax,nt,fixorfree,rend,omega,... 
bo cdamp]=chaindata 


6: 4 This example function creates data defining 
7: 4 the chain. The function can be renamed and 
s: 4 modified to handle different problems. 


; n=8; ^ Number or point masses 
: tmax=20; ^4 Maximum time for the solution 
: nt=401; ^4 Number of time values from 0 to tmax 


; fixorfree-0; % Determines whether the right end 
^ position is controlled or free. Use 
^ zero for free or one for controlled. 


© 2003 by CRC Press LLC 


: omega-6; 


: cdamp=1; 


; function 


; rend-0.05; ^ Amplitude factor for end motion. This 


^ can be zero if the ends are fixed. 

^ Frequency at which the ends are 

^ rotated. 

^ Coefficient regulating the amount of 
^ viscous damping. Reduce cdamp to give 
^ less damping. 


rdot=spreqmof (t,r,m,k,L,re,fext,c) 


: 4 rdot=spreqmof (t,r,m,k,L,re,fext,c) 


. 4 This function forms the two-dimensional equation 

: 4 of motion for a chain of spring-connected particles. 
: 4 The positions of the ends of the chain may be time 

: 4 dependent and are computed from a function named in 
. 4 the input parameter re. The applied external loading 
: 4 consists of constant loads on the particles and 

; ^ linear 
. 4 velocities. Data parameters for the problem are 

. 4 defined in a function file specified by the user. 
. 4 Function chaindata gives a typical example. 


UNE. =. 
C C 


viscous damping proportional to the particle 


current value of time 

vector containing complex displacements in 
the top half and complex velocity components 
in the bottom half 

vector of particle masses 

vector of spring constant values 

vector of unstretched spring lengths 

name of a function which returns the time 
dependent complex position coordinate for 
the ends of the chain 

vector of constant force components applied 
to the spring 

vector of viscous damping coefficients for 
the particles 


. N=length(r); n-N/2; z-r(1:n); v-r(n*1:N); 
; R=feval(re,t); 

. zdif-diff([R(1);z;R(2)]); len=abs(zdif) ; 

: fsp=zdif. 
; accel-(fext*fdamptfsp(2:n4*1)-fsp(1:n)) ./m; 


/len.*((len-L).*(len-L50)).*k; fdamp--c.*v; 
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: rdot=[v;accel]; 


; function rends-endmo(t) 

: 4^ rends-endmo(t) 

: 4 This function specifies the varying end positions. 
. 4 In this example the ends rotate at frequency omega 


. ^ around circles of radius Rend. 


3 4 User m functions called: none 
; global zend Rend omega 


: s=Rend*exp(i*omega*t); rends-[s,zend-conj(s)]; 


; 4 function plotmotn(x,y,titl,isave) 
» 4 See Appendix B 
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Chapter 9 


Boundary Value Problems for Partial 
Differential Equations 


9.1 Several Important Partial Differential Equations 


Many physical phenomena are characterized by linear partial differential equa- 
tions. Such equations are attractive to study because (a) principles of superposition 
apply in the sense that linear combinations of component solutions can often be used 
to build more general solutions and (b) finite difference or finite element approxima- 
tions lead to systems of linear equations amenable to solution by matrix methods. 
The accompanying table lists several frequently encountered equations and some ap- 
plications. We only show one- or two-dimensional forms, although some of these 
equations have relevant applications in three dimensions. 

In most practical applications the differential equations must be solved within a 
finite region of space while simultaneously prescribing boundary conditions on the 
function and its derivatives. Furthermore, initial conditions may exist. In dealing 
with the initial value problem, we are trying to predict future system behavior when 
initial conditions, boundary conditions, and a governing physical process are known. 
Solutions to such problems are seldom obtainable in a closed finite form. Even when 
series solutions are developed, an infinite number of terms may be needed to pro- 
vide generality. For example, the problem of transient heat conduction in a circular 
cylinder leads to an infinite series of Bessel functions employing characteristic val- 
ues which can only be computed approximately. Hence, the notion of an "exact" 
solution expressed as an infinite series of transcendental functions is deceiving. At 
best, we can hope to produce results containing insignificantly small computation 
errors. 

The present chapter applies eigenfunction series to solve nine problems. Examples 
involving the Laplace, wave, beam, and heat equations are given. Nonhomogeneous 
boundary conditions are dealt with in several instances. Animation is also provided 
whenever it is helpful to illustrate the nature of the solutions. 
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Equation Equation | Applications 
Name 
F Uyy = Qut Heat Transient heat conduction 


F Uyy = (ur Wave Transverse vibrations of membranes 
and other wave type phenomena 


+ Uyy = 0 Laplace Steady-state heat conduction and 
electrostatics 


+ Uyy = f(x,y) Poisson Stress analysis of linearly elastic 
bodies 


+ Uyy + wu = 0 Helmholtz | Steady-state harmonic vibration 
problems 


El Yzsss = —Apy + f(z,t) | Beam Transverse flexural vibrations of 
elastic beams 


a 


9.2 Solving the Laplace Equation inside a Rectangular Region 


Functions which satisfy Laplace's equation are encountered often in practice. Such 
functions are called harmonic; and the problem of determining a harmonic function 
subject to given boundary values is known as the Dirichlet problem [119]. In a 
few cases with simple geometries, the Dirichlet problem can be solved explicitly. 
One instance is a rectangular region with the boundary values of the function being 
expandable in a Fourier sine series. The following program employs the FFT to con- 
struct a solution for boundary values represented by piecewise linear interpolation. 
Surface and contour plots of the resulting field values are also presented. 

The problem of interest satisfies the differential equation 


—=0 , 0<a<a , 0<y<b 


u(z,0)= F(a) , O<a<a, 
u(z,b)=G(a) , O<a<a, 
u(0,y) - P(y , O<y<b, 
u(a,y) -Q(y) , O«y«b. 


The series solution can be represented as 


u(z, y) > 5 faan(z, y) + gn n (t, b — y) + Pnbn (x, y) + qs b, (a => L,Y) 


n=1 
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where 


as (c, y) = sin =] sinh =e 2 Tak = . 


a 


br(x, y) = sinh [m sin zl / sinh =] ; 


and the constants fm, Gm, Pn, and qn are coefficients in the Fourier sine expansions 
of the boundary value functions. This implies that 


F(a) = > fn sin =] , G(x) = + Qn Sin =] ; 
n=l 


n=1 


= . [nmy = . [nmy 
Ply) = Xop sm [=] ; Oy) = 5 qn SM =] : 
n=1 n=l 
The coefficients in the series can be computed by integration as 


In = = [te sin =] dx, On = = f eom =] dz, 


a 


Pn = 2 [ P(y) sin E dy, qn = = [ o0» [=] dy, 


or approximate coefficients can be obtained using the FFT. The latter approach is 
chosen here and the solution is evaluated for an arbitrary number of terms in the 
series. 

The chosen problem solution has the disadvantage of employing eigenfunctions 
that vanish at the ends of the expansion intervals. Consequently, it is desirable to 
combine the series with an additional term allowing exact satisfaction of the corner 
conditions for cases where the boundary value functions for adjacent sides agree. 
This implies requirements such as F(a) = Q(0) and three other similar conditions. 
It is evident that the function 


up(z, y) = c1 + coz + cay + cary 


is harmonic and varies linearly along each side of the rectangle. Constants c1,--- , c4 
can be computed to satisfy the corner values and the total solution is represented as 
Up plus a series solution involving modified boundary conditions. 

The following program laplarec solves the Dirichlet problem for the rectangle. 
Function values and gradient components are computed and plotted. Functions used 
in this program are described below. The example data set defined in the driver 
program was chosen to produce interesting surface and contour plots. Different 
boundary conditions can be handled by slight modifications of the input data. In 
this example 100 term series are used. Figure 9.1 through Figure 9.4 show function 
and gradient components, as well as a contour plot of function values. Readers may 
find it instructive to run the program and view these figures from different angles 
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laplarec | inputs data, calls computation modules, and 
plots results 

datafunc | defines an example datacase 

ulinbc particular solution for linearly varying 
boundary conditions 


recseris | sums the series for function and gradient val- 


ues 

sincof generates coefficients in a Fourier sine series 

lintrp piecewise linear interpolation function allow- 
ing jump discontinuities 


using the interactive figure rotating capability provided in MATLAB. Note that the 
figure showing the function gradient in the x direction used view([225,20]) to show 
clearly the jump discontinuity in this quantity. 
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HARMONIC FUNCTION IN A RECTANGLE 
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Figure 9.1: Surface Plot of Function Values 
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Figure 9.2: Contour Plot of Function Values 
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DERIVATIVE OF U(X,Y) IN THE X DIRECTION 
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Figure 9.3: Function Derivative in the x Direction 


DERIVATIVE OF U(X,Y) IN THE Y DIRECTION 
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Figure9.4: Function Derivative in the y Direction 


© 2003 by CRC Press LLC 


MATLAB Example 


Program laplarec 
. function [u,ux,uy,X,Y]-1laplarec(... 
ubot,utop,ulft,urht,a,b,nx,ny,N) 


[u,ux,uy,X,Y]=laplarec(... 
y ubot,utop,ulft,urht,a,b,nx,ny,N) 


^ This program evaluates a harmonic function and its 
^ first partial derivatives in a rectangular region. 


D i0, AAR Ee oce. Ll 
"usd 


v 4 The method employs a Fourier series expansion. 

1: 4 ubot | - defines the boundary values on the bottom 
u: % side. This can be an array in which 

12: h ubot(:,1) is x coordinates and ubot(:,2) 
13: h is function values. Values at intermediate 
1: h points are obtained by piecewise linear 

is: % interpolation. A character string giving 
16: h the name of a function can also be used. 
17: fh Then the function is evualuated using 200 
is: A points along a side to convert ubot to an 
19; h array. Similar comments apply for utop, 

20: h ulft, and urht introduced below. 

2: 4 utop  - boundary value definition on the top side 
2: ^ ulft | - boundary value definition on the left side 
z; ^ urht | - boundary value definition on the right side 
24 ^ a,b - rectangle dimensions in x and y directions 
25; 4 nx,ny - number of x and y values for which the 

26: h% solution is evaluated 

ar: h N - number of terms used in the Fourier series 
as: h U - function value for the solution 

2: ^ ux,uy - first partial derivatives of the solution 
30: 4 X,Y - coordinate point arrays where the solution 
ai: % is evaluated 

32: ie 

3: ^ User m functions used: datafunc ulinbc 

34 h recseris ftsincof 

35: 

3: disp 7) 


37: disp( SOLVING THE LAPLACE EQUATION IN A RECTANGLE’ ) 
as disp? ?) 


4: if nargin-- 
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ai: disp(... 


42: 'Give the name of a function defining the data’) 
43: datfun=input(... 

44: ’ (try datafunc as an example): > ? ’,’s’); 

45: [ubot,utop,ulft,urht,a,b,nx,ny,N]-feval(datfun); 

4e end 


as: ^ Create a grid to evaluate the solution 

a9: X=linspace(0,a,nx); y-linspace(0,b,ny); 

s. [X,Y]=meshgrid(x,y); d=(atb)/1e6; 

si. Xd-linspace(0,a,201)'; yd=linspace(0,b,201)’; 


5: ^ Check whether boundary values are given using 
s: ^ external functions. Convert these to arrays 


s: if isstr(ubot) 

5T: ud-feval(ubot,xd); ubot=[xd,ud(:)]; 
ss; end 

s: if isstr(utop) 

60: ud-feval(utop,xd); utop=[xd,ud(:)]; 
ei. end 

6: if isstr(ulft) 

63: ud-feval(ulft,yd); ulft-[yd,ud(:)]; 
64: end 

6: if isstr(urht) 

66: ud-feval(urht,yd); urht-[yd,ud(:)]; 
ez: end 


6: 4 Determine function values at the corners 
zx: ub-interpi(ubot(:,1),ubot(:,2),[d,a-d]); 
1: utzinterpli(utop(:,1),utop(:,2),[d,a-4]); 
zz ul-interpl(ulft(:,1),ulft(:,2),[d,b-d]); 
7; ur=interpl (urht(:,1),urht(:,2),[d,b-d]); 
va U=[ul (1) +ub(1) ,ub(2) *ur (1) ,ur(2)+ut(2),... 
75: ut(1)*u1(2)]/2; 


7: h Obtain a solution satisfying the corner 
73: ^ values and varying linearly along the sides 


soc: [v,vx,vy]-ulinbc(U,a,b,X,Y) ; 
sz: ^ Reduce the corner values to zero to improve 


3: 4 behavior of the Fourier series solution 
s: ^4 near the corners 
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s [ub,ubx,uby]-recseris(ubot,a, 
. [ut , utx,utyl-recseris(utop,a, 
; [ul,ulx,uly]=recseris(ulft,a,b 
. [ur,urx,uryl-recseris(urht,a,b,4,x,y,N); 
; u=vtubtuttult+ur; ux=vxtubxtutxtulxturx; 
; uy=vytubytutyt+ulytury; close 


; fzinline(^u0* (u1-u0) /L*x? ,’x’,’ud0’,’ul’,’L’); 
; ubot(: ,2)=ubot(: ,2)-f (ubot (:,1) ,U(1),U(2),a2; 
: utop(: ,2)=utop(: ,2)-f (utop(: ,1) ,U(4) ,U(3) ,a); 
; ulft(: ,2)=ulft(: ,2)-f (ulft(:,1),U(1) ,U(4) ,b); 
; urht(: ,2)=urht(: ,2)-f (urht (:,1) ,U(2) ,U(3) ,b) ; 


; 4 Evaluate the series and combine results 
. 4^ for the various component solutions 


b,1,x,y,N); 
b,2,x,y,N); 
:,3,X,y,N); 


; ^ Show results graphically 


. surfc(X,Y,u), xlabel(’x axis’), ylabel(’y axis?) 
s Zlabel(’U(X,Y)’) 

; title(’HARMONIC FUNCTION IN A RECTANGLE’) 

: shg, pause 

:% print -deps laprecsr 


: contour(X,Y,u,30); title(’Contour Plot’); 

. Xlabel(’x direction’); ylabel(’y direction’); 
: colorbar, shg, pause 

. 4 print -deps laprecnt 


. surf(X,Y,ux), xlabel(’x axis’), ylabel(’y axis?) 
: ZLlabe1 CDU(X, Y) /DX?) 

;: tàitleCDERIVATIVE OF U(X,Y) IN THE X DIRECTION?) 
: shg, pause 

:% print -deps laprecdx 


. surf(X,Y,uy), xlabel(’x axis’), ylabel(’y axis?) 
; Zlabel CODU(X, Y) /DY?) 

;: tàitleCDERIVATIVE OF U(X,Y) IN THE Y DIRECTION?) 
: 4 print -deps laprecdy 

: shg 


: function [ubot,utop,ulft,urht,a,b,... 


nx,ny,N]-datafunc 
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a2 4 [ubot,utop,ulft,urht,a,b,... 
33: À nx,ny,N]-datafunc 


3: ^ This is a sample data case which can be 
36: ^ modified to apply to other examples 


ss ^ ubot, utop - vectors of function values on the 


39; ^ bottom and top sides 

4: 4 ulft, urht - vectors of function values on the 
a: h right and left sides 

a 4 a, b - rectangle dimensions along the 

43: h x and y axis 

aa. h nx, ny - number of grid values for the x 
45: h and y directions 

ac: h N - number of terms used in the 

az: h Fourier series solution 


4: a=3; b=2; e-1e-5; N=100; 

. x=linspace(0,1,201)’; s=sin(pi*x) ; 

: C=cos(pi*x); ubot-[a*x,2-4*s]; 

: utop2 [a*x,interp1([0,1/3,2/3,1], ... 
[-2,2,2,-2],x)]; 

. ulft-[b*x,2*c]; urht=ulft; nx-51; ny=31; 


one oO 


[9 


Q 
e 
2x 


: function [u,ux,uy]-ulinbc(U,a,b,X, Y) 


CO 


ol ol e ol ou uo ol ou ou ou 
> P 


Kej 
e 
> 


oo: 4 [u,ux,uy]=ulinbc(U,a,b,X,Y) 


o» 4 This function determines a harmonic function 
o» ^ varying linearly along the sides of a rectangle 
64 h With specified corner values 


65: VA 

os: 4 U - corner values of the harmonic function 
67: 4 [U(1),...U(4)] <=> corner coordinates 
68: h (0,0), (0,2), (a,b), (0,b) 

o» ^ a,b  - rectangle dimensions in the x and y 
70: h directions 

"n: 4 X,Y  - array coordinates where the solution 
7 is evaluated 

73: fy u - function values evaluated for X,Y 
va: h uX,uy - first derivative components evaluated 
75: h for the X,Y arrays 
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: C= 
; u=c(1)+c (2) *X+c (3) *¥+c (4) «X. *Y; 
: ux=c(2)+c(4)*Y; uy=c(3)+c (4) *X; 


[1,0,0,0;1,a,0,0;1,a,b,a*b;1,0,b,0;]\UC:); 


; function [u,ux,uy,X,Y]=recseris(udat,a,b,iside,x,y,N) 


[u,ux,uy,X,Y]=recseris(udat,a,b,iside,x,y,N) 

This function computes a function harmonic in 

a rectangle with general function values given 

on one side and zero function values on the 

other three sides. 

udat - a data array to determine the function 
values by piecewise linear interpolation 
along the side having nonzero values. 
udat(:,1) contains either x or y values 
along a side, and udat(:,2) contains 
corresponding function values 

a,b - side lengths for the x and y directions 

iside - an index indicating the side for which 
function values are given. 
[1,2,3,4]<=>[bottom, top, left, right] 

X,y data vectors defining a grid 
[X,Y]=meshgrid(x,y) on which the function 
and its first partial derivatives are 


^ computed 
^N - number of series terms used (up to 500) 
^ u,ux,uy - arrays of values of the harmonic function 
y and its first partial derivatives 
% X,Y arrays of coordinate values for which 
% function values were computed. 
: x=x(:)?; y=y(:); ny=length(y); N=min(N,500) ; 
; if iside<3, period=2*a; else, period-2*b; end 
. c"ftsincof(udat,period); n-1:N; c=c(n); 
; if iside<3 ^ top or bottom sides 
npa-pi/a*n; c=c./(1-exp(-2*b*npa) ) ; 
sx-sin(npa(:)*x); cx=cos(npa(:)*x) ; 
if iside--1 7% bottom side 
dy=exp(-y*npa); ey=exp(-(2*b-y) *npa) ; 
u=repmat (c,ny,1) .*(dy-ey) *sx; 


c=repmat (c.*npa,ny,1); 
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ux-c.*(dy-ey)*cx; uy--c.*(dy*ey)*sx; 
else ^ top side 

dy=exp((y-b)*npa); ey=exp(-(y+b) *npa) ; 

u=repmat (c,ny,1) .*(dy-ey) *sx; 

c=repmat(c.*npa,ny,1); 

ux-c.*(dy-ey)*cx; uy=c.*(dy+ey) *sx; 
end 


. else ^ left or right sides 


npb=pi/b*n; c=c./(1-exp(-2*a*npb) ) ; 

sy-sin(y*npb); cy=cos(y*npb) ; 

if iside--3 % left side 
dx-exp(-npb(:)*x); 
ex-exp(-npb(:)*(2xa-x)); 
u-repmat(c,ny,1).*sy*(dx-ex); 
c=repmat(c.*npb,ny,1); 
ux-c.*sy*(-dx-ex); uy=c.*cy*(dx-ex) ; 

else ^ right side 
dx-exp(-npb(:)*(a-x)); 
ex-exp(-npb(:)*(a*x)); 
u-repmat(c,ny,1).*sy*(dx-ex); 
c=repmat(c.*npb,ny,1); 
ux=c.*sy*(dxtex); uy=c.*cy*(dx-ex) ; 

end 


; end 
s [X,Y]=meshgrid(x,y); 


. function c=ftsincof (y, period) 
: 4 c=ftsincof (y,period) 
» 4 This function computes 500 Fourier sine 


. 4 coefficients for a piecewise linear 
s ^ function defined by a data array 


A y - an array defining the function 
hs over half a period as 
4 Y(x)=interp1(y(:,1),y(:,2),x) 


. 4 period - the period of the function 


. xft-linspace(0,period/2,513); 

. uft=interpl(y(:,1),y(: ,2)/512, xft) ; 
. c=fft (Luft, -uft (512:-1:2)]); 

: c=-imag(c(2:501)); 
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prx——— — AW 


9.3 The Vibrating String 


Transverse motion of a tightly stretched string illustrates one of the simplest oc- 
currences of one-dimensional wave propagation. The transverse deflection satisfies 


the wave equation 
20u u 


“OX? ƏT? 
where u( X, T) satisfies initial conditions 


Ou(X, 0) 


u(X,0) = F(X), ƏT 


= G(X) 
with boundary conditions 
u(0,T) 20, u(£,T) =0 


where £ is the string length. If we introduce the dimensionless variables x = X/£ 
and t = T'/(£/a) the differential equation becomes 


Usa = Utt 
where subscripts denote partial differentiation. The boundary conditions become 
u(0,t) = u(1,t) =0 
and the initial conditions become 


u(x,0) = f(x) , ur(w,0) = g(z). 


Let us consider the case where the string is released from rest initially so g(a) = 0. 
The solution can be found in series form as 


u(x,t) = 5 AnPn(£) cos(wnt) 


where wp are natural frequencies and satisfaction of the differential equation of mo- 
tion requires 
p, (x) + wspa(z) = 0 
so 
Pn = An sin(wnx) + Bn cos(waz). 
The boundary condition pn (0) = Bn = 0 and pn (1) = An sin(wn) requires An 4 0 
and wn = na, where n is an integer. This leads to a solution in the form 
oo 


u(x,t) = 5 an sin(nzz) cos(nmt). 


n=1 
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The remaining condition on initial conditions requires 


ds sin(nzz) = f(x), 0« xz « 1. 
n=1 


Therefore, the coefficients a,, are obtainable from an odd-valued Fourier series ex- 
pansion of f(x) vanishing at x = 0 and x = 2. We see that f(—x) = — f(x) and 
f(x +2) = f (x), and the coefficients are obtainable by integration as 


1 
an = 2 | f(x) sin(nzz) da. 


However, an easier way to compute the coefficients is to use the FFT. A solution will 
be given for an arbitrary piecewise linear initial condition. 

Before implementing the Fourier series solution, let us digress briefly to examine 
the case of an infinite string governed by 


a^uxx = UTT , —oo« X «oo 
and initial conditions 


The reader can verify directly that the solution of this problem is given by 


] pXter 
u(X,T) = 2 [F(X — aT) - F(X - aT)| + >f G(x) dz. 


1 
2 20 Jx aT 
When the string is released from rest, G(X) is zero and the solution reduces to 


F(X — aT) + F(X +aT) 
2 


which shows that the initial deflection splits into two parts with one half translating 
to the left at speed a and the other half moving to the right at speed a. This solution 
can also be adapted to solve the problem for a string of length £ fixed at each end. 
The condition u(0, T) = 0 implies 


F(—aT) = —F(aT) 
which shows that F'(X) must be odd valued. Similarly, u(£, T) = 0 requires 
F(£ — aT) 4- F(€+ aT) — 0. 
Combining this condition with F(X) = —F (X) shows that 


F(X +20) = F(X) 
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so, F(X) must have a period of 22. In the string of length £, F(X) is only known 
for 0 < X < £, and we must take 


F(X)—--—F(20— X), £« X «2t. 


Furthermore the solution has the form 


where £p = X + aT and x, = X — aT. The quantity x, will always be positive 
and £m can be both positive and negative. The necessary sign change and periodicity 
can be achieved by evaluating F(X) as 


sign( X ).* F(rem(abs(X)),2 * £) 


where rem is the intrinsic remainder function used in the exact solution implemented 
in function strngwav presented earlier in section 2.7. 

A computer program employing the Fourier series solution was written for an 
initial deflection that is piecewise linear. The series solution allows the user to select 
varying numbers of terms in the series to examine how well the initial deflection 
configuration is represented by a truncated sine series. A function animating the 
time response shows clearly how the initial deflection splits in two parts translating 
in opposite directions. In the Fourier solution, dimensionless variables are employed 
to make the string length and the wave speed both equal one. Consequently, the 
time required for the motion to exactly return to the starting position equals two, 
representing how long it takes for a disturbance to propagate from one end to the 
other and back. When the motion is observed for 0 < x < 1, it is evident that waves 
reflected from a wall are inverted. The program employs the following functions. 


stringft | function to input initial deflection data 

sincof uses fft to generate coefficients in a sine series 

initdefl | defines the initial deflection by piecewise linear 
interpolation 

strvib evaluates the series solution for general x and t 


smotion | animates the string motion 

inputv | facilitates interactive data input 

lintrp performs interpolation to evaluate a piecewise 
linear function 


Results are shown below for a string which was deflected initially in a square 
wave. The example was chosen to illustrate the approximation produced when a 
small number of Fourier coefficients, in this case 30, is used. Ripples are clearly 
evident in the surface plot of u(x,t) in Figure 9.5. The deflection configuration of 
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15 String Deflection as a Function of Position and Time 
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Figure9.5: String Deflection as a Function of Position and Time 


the string at t = 1 when the initial deflection form has passed through half a period 
of motion appears in Figure 9.6. One other example given in Figure 9.7 shows the 
deflection surface produced using 100 series terms and a triangular initial deflection 
pattern. The surface describes u(x, t) through one period of motion. 
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Wave Propagation in a String 


Figure 9.6: Wave Propagation in a String 


String Deflection as a Function of Position and Time 
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Figure 9.7: Surface for Triangular Initial Deflection 
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Program Output and Code 
Output from Example stringft 


>> stringft; 


FOURIER SERIES SOLUTION FOR WAVES 
IN A STRING WITH LINEARLY INTERPOLATED 
NITIAL DEFLECTION AND FIXED ENDS 


I 


Enter the number of interior data points (the fixed 
end point coordinates are added automatically) 
? 4 


The string stretches between fixed endpoints at 
x=zero and x-one. 


Enter 4 sets of x,y to specify interior 
initial deflections (one pair per line) 


.33,0 
:33,-1 
167.,:—1. 
.67,0 


VV Vv Ud 


Give the number of series terms 
and the maximum value of t 
(give 0,0 to stop) 

? 30,1 


Press [Enter] to 
see the animation 


Give the number of series terms 
and the maximum value of t 
(give 0,0 to stop) 

? 0,0 
>> 


String Vibration Program 


xı function [x,t,y]=stringft (Xdat , Ydat) 
2: VA 
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. ^ Example: [x,t,y]=stringft (Xdat, Ydat) 


^ This program analyzes wave motion in a string 
^ having arbitrary piecewise linear initial 

^ deflection. A Fourier series expansion is used 
^ to construct the solution 


. ^ Xdat,Ydat -data vectors defining the initial 


u: 4 deflections at interior points. The 
12: h deflections at x-0 and x-1 are set 
13: h to xero automatically. For example, 
14: h try Xdat=[.2,.3,.7,.8], 

15: A Ydat=[0,-1,-1,0] 

16: 4, 

17: h X,t,y - arrays containing the position, time 
is: h and deflection values 


; ^ User m functions required: 

A sincof, initdefl, strvib, smotion, inputv, 
22: h lintrp 

2: global xdat ydat 


. disp? 7), disp( 


^ FOURIER SERIES SOLUTION FOR WAVES?) 


: disp(.... 
^IN A STRING WITH LINEARLY INTERPOLATED’ ) 
3x disp(...? 
^ INITIAL DEFLECTION AND FIXED ENDS’) 
: if nargin-- 
disp(’ ?) 


disp([’Enter the number of interior ’,... 
'data points (the fixed’]) 
disp([’end point coordinates are ’,... 
'added automatically)’]) 
n=input(’? ?); if isempty(n), break, end 
xdat-zeros(n*2,1); ydat-xdat; xdat(n+2)=1; 
disp(’ ?) 
disp([’The string stretches between ’,... 
^fixed endpoints at’]) 
disp(’x=zero and x=one. ’),disp(’ ?) 
disp([’Enter ?,num2str(n),... 
> sets of x,y to specify interior’]) 
disp([’initial deflections : 
’ (one pair per line)?]), disp? ?) 
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for j-72:n*i,[xdat(j),ydat(j)]l-inputv; end; 


49: else 
s.  xdat-[0;Xdat(:);1]; ydat-[0;Ydat (:);0] ; 
si; end 


53; a=Sincof (@initdef1,1,1024); % sine coefficients 
sa nx-51; x-linspace(0,1,nx); 
s: Xx-linspace(0,1,151); 


55 While 1 


disp(’ ?) 

disp(’Give the number of series terms’) 

disp(’and the maximum value of t’) 

disp(’ (give 0,0 to stop)?) 

[ntrms,tmax]-inputv; 

if isnan(ntrms)| norm([ntrms,tmax])--0 

break, end 

nt-ceil(nx*tmax); t=linspace(0,tmax,nt) ; 

y=strvib(a,t,x,1,ntrms); % time history 

yy=strvib(a,t,xx,1,ntrms) ; 

[xo,to]=meshgrid(x,t) ; 

hold off; surf(xo,to,y); 

grid on; colormap([1 1 1]); 

^Acolormap([127/255 1 212/255]); 

xlabel(?x axis’); ylabel(’time axis’); 

zlabel(’transverse deflection’); 

title([’String Deflection as a Function ’, 
^of Position and Time’]); 

disp(’ ’), disp(’Press [Enter] to’) 

disp(’see the animation’), shg, pause 

^ print -deps strdefl 

smotion(xx,yy,'Wave Propagation in a String’); 

disp(’’); pause(1); 


; end 
. print -deps strwave 


. function y-initdefl(x) 
| 4 y=initdefl (x) 
. ^ This function defines the linearly 


. ^ interpolated initial deflection 
. 4 configuration. 
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35: 


. 4 X - a vector of points at which the initial 


95: 


[4 deflection is to be computed 
|. 4 y - transverse initial deflection value for 
E argument x 

^ 
. 4 xdat, ydat - global data vectors used for 
h linear interpolation 

^ 


; ^ User m functions required: lintrp 


; global xdat ydat 
. yzlintrp(xdat,ydat,x); 


. function y=strvib(a,t,x,hp,n) 


% 


: h y=strvib(a,t,x,hp,n) 


^ Sum the Fourier series for the string motion. 


^a - Fourier coefficients of initial 


s deflection 
- 4 t,x - vectors of time and position values 
- 4 hp - the half period for the series 


A expansion 
. 4n  - the number of series terms used 
^ 
4 y  - matrix with y(i,j) equal to the 
oh deflection at position x(i) and 
Ei time t(j) 
^ 


; 4 User m functions required: none 
0 


; Ww=pi/hp*(1:n); a-a(1:n); a=a(:)’; 
: x=x(:); t=t(:)’; 
33: ye CCaCones (length (x),1),:).* 


sin(x*w))*cos(w(:)*t))?; 
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75: 


Ecce NP oan 


tei 


ss function smotion(x,y,titl) 
0 


: 4 emotion(x,y,titl) 


:. 4 This function animates the string motion. 


FE - a vector of position values along the 
hh string 

Ay - a matrix of transverse deflection 

Fe values where successive rows give 

:% deflections at successive times 


:% titl - a title shown on the plot (optional) 


^ User m functions required: none 


; if nargin < 3, titl=? ’; end 
; xmin-min(x); xmax-max(x); 
; ymin=min(y(:)); ymax-max(y(:)); 


[nt,nx]-size(y); clf reset; 


; for j-1:nt 


plot(x,y(j,:),’k’); 

axis ([xmin, xmax, 2*ymin, 2*ymax] ) ; 
axis(’off’); title(titl); 
drawnow; figure(gcf); pause(.1) 


; end 


;. function a-sincof(func,hafper,nft) 
. 4 a=sincof (func, hafper ,nft) 


; 4 This function calculates the sine 
; 4 coefficients. 


; 4 func - the name of a function defined over 
% a half period 
; ^ hafper - the length of the half period of the 
oh function 
;: 4 nft - the number of function values used 
4 in the Fourier series 
^ 
eek - the vector of Fourier sine series 
4 coefficients 
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83: VA 
s: ^ User m functions required: none 


a»; n2-nft/2; x-hafper/n2*(0:n2); 
ss. y=feval(func,x); y=y(:); 
s: a-fft([y;-y(n2:-1:2)]); a--imag(a(2:n2))/n2; 


o» ^ function y-lintrp(xd,yd,x) 
oa: ^ See Appendix B 


os ^ function varargout-inputv (prompt) 
o» ^ See Appendix B 


E: SeSe 


9.4 Force Moving on an Elastic String 


The behavior of a semi-infinite string acted on by a moving transverse force illus- 
trates an interesting aspect of wave propagation. Consider a taut string initially at 
rest and un-deflected when a force moving at constant speed is applied. This simple 
example shows how a wave front moves ahead of the force when the velocity of wave 
propagation in the string exceeds the speed of the force, but the force acts at the front 
of the disturbance when the force moves faster than the wave speed of the string. The 
governing differential equations, initial conditions, and boundary conditions are: 


F 
auzola, t) = uulz, t) + Elx — vt), t» 0, 0< x « oo, 
p 


u(0,t) 20, u(oo,t) = 0, 
u(r,0)—0, u(z,0-20,0«c«oc. 


In these equations a is the speed of wave propagation in the string and v is the speed 
at which a concentrated downward force Fo moves toward the right along the string, 
p is the mass per unit length of the string, and ó is the Dirac delta function. This 
problem can be solved using the Fourier sine transform pair defined by 


U(p,t) = | u(z,t)sin(pz)dx , u(x,t) 


Ss 


S58 


== fu, U (p, t) sin(px)dp. 
0 
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Transforming the differential equation and initial conditions, and making use of the 
boundary conditions gives 


Po. 
—p!a?U (p, t) = Uu(p,t) + - sin(pvt) , U(p,0) = 0 , Ur(p,0) = 0. 


It follows that 


Fo vsin(apt) — asin(vpt) 


U(p,t) = ———— 
(p, ) ap(a? — v?) p? , 


provided v Z a. Applying the inverse transformation then gives the desired displace- 
ment response as 


| (v — a)z — v |x — at| +a |x — vt| ]. 


9.4.1 Computer Analysis 


The following MATLAB program analyzes the response predicted by the last 
equation. A surface plot shows u(x,t). Positions of the force at successive times 
are also marked by a heavy dark line superimposed on the surface. Then an anima- 
tion shows the string deflection and the point of action of the force throughout the 
chosen time interval. As the force moves along the string, no deflection occurs ahead 
of the force if the speed of the force exceeds the speed of wave propagation for the 
string. Otherwise, a disturbance propagates ahead of the force at the wave speed of 
the string. Graphical results from the program are shown first. Then the computer 
code is listed. 

Let us first consider what happens when the force moves slower than the wave 
speed. Taking so v — 1.0, a — 1.2 gives the following results in Figure 9.8. Since 
the point of application of the load is denoted by an arrow, it is clear from the last 
figure that the disturbance moves ahead of the load when the load moves slower than 
the wave speed for the string. Next consider what happens when the force moves 
faster than the wave speed for the string. For example taking v — 1, a — 0.80 gives 
significantly different output. In this instance, no disturbance occurs at a point until 
the load passes the point. This case is illustrated in Figure 9.9. The reader may find 
it instructive to run the program for different combinations of force speed and wave 
speed. The program does not account for the case where v exactly equals a, but these 
values can be taken close enough together to see what the limiting case will give. We 
simply increase a to 1.00001 times a. 
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FORCE SPEED SLOWER THAN THE WAVE SPEED 
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A=1.2, V=1, T= 10.00 
Figure 9.8: Force Moving Slower than the Wave Speed 
FORCE SPEED FASTER THAN THE WAVE SPEED 
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A=0.8, V2 1, T= 10.00 


Figure 9.9: Force Moving Faster than the Wave Speed 
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Program forcmove 


35: 


Q9. iC gr US oae 2m ie dae 


; function [u,X,T,uf,t]-forcmove(a,v,tmax,nt) 


[u,X,T,uf,t]-forcmove(a,v,tmax,nt) 

This function computes the dynamic response 
of a taut string subjected to an upward 
directed concentrated force moving along the 
string at constant speed. The string is 
fixed at x-0 and x-*infinity. The system 

is initially at rest when the force starts 
moving toward the right from the left end. If 
the force speed exceeds the wave propagation 
Speed, then no disturbance occurs ahead of 
the force. If the force speed is slower 

than the wave propagation speed, then the 
deflection propagates ahead of the force at 
the wave propagation speed. 


V - Speed of the moving load 

a - Speed of wave propagation in the 
string 

tmax - maximum time for which the 
solution is computed 

u - matrix of deflection values where 


time and position vary row-wise and 
column-wise, respectively 


T,X  - matrices of time and position values 
corresponding to the deflection 
matrix U 

uf - deflection values where the force acts 

t - vector of times (same as columns of T) 


User m functions used: ustring 


if nargin--0, a-.8; v-1; tmax-10; nt-15; end 


: if a>v 


titl=’FORCE SPEED SLOWER THAN THE WAVE SPEED'; 


; elseif a«v 


titl=’FORCE SPEED FASTER THAN THE WAVE SPEED'; 


;: else 
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titl=’FORCE SPEED EQUAL TO THE WAVE SPEED’ ; 
a-v*1.00001; 


;: end 


; ^ Obtain solution values and plot results 
. [u, X, T, uf, t] -ustring(a,v,tmax,nt); 

sif a>v, xf-X(:,2); uf-u(:,2); xw-X(:,3); 

; else, xf=X(:,3); uf-u(:,3); end 

s» close, subplot(211) 

si waterfall(X,T,-u), xlabel(’x axis?) 

5; ylabel(’time’), zlabel(’deflection’ ) 


54 title(titl), grid on, hold on 

5: 4 plot3(xf,t,-uf,'.k',xf,t,-uf," k") 

s: plot3(xf,t,-uf,’k’,’linewidth’ ,2); 

s; colormap([O 0 0]), view([-10,30]), shg 

ss umin-min(u(:)); umax-max(u(:)); xmax-X(1,4); 
s» range-[0,xmax,2*umin,2*umax]; hold on 

; Titl=[’A = ?,num2str(a),", V = ’,num2str(v),... 


^ T= 44.2£?]; subplot(212) , axis off 


: ^ Use a dense set of points for animation 

. nt=80; [uu,XX, TT,uuf,tt]-ustring(a,v,tmax,nt) ; 
s umax-max(abs(uu(:))); uu=uu/umax; uuf-uuf/umax; 
. XX-XX/xmax; range=[0,1,-1,1]; h=.4; 

. arxzh* [0,.02,-.02,0,0]; ary-h*[0,.25,.25,0,1]; 
: for j-1:nt 


uj=uu(j,:); xj=XX(j,:); 

xf j=v/xmax*tt(j); ufj=uuf(j); 
plot(xj,-uj,'k',;xfjtarx,-ufj-ary,'-k") 
axis off, time-(sprintf(Titl,tt(j))); 
text(.3,-.5,time), axis(range), drawnow 
pause(.05), figure(gcf), if j«nt, cla, end 


s end 
. ^ print -deps forcmove 
: hold off; subplot 


. function [u,X,T,uf,t]-ustring(a,v,tmax,nt) 
: 4 [u, X, T,uf,t]-ustring(a,v,tmax,nt) 


. ^ This function computes the deflection u(x,t) 
. ^ of a semi-infinite string subjected to a 
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s: ^ moving force. The equation for the normalized 
ss 4 deflection is 
s: 4 u(x,t)71/a/(a^2-v^2)*((v-a-v*abs (x-a*t)... 


90: ^ taxabs (x-v*t)); 

oa: h a - speed of wave propagation in the string 
o» h V - Speed of the force moving to the right 

os ^ tmax - maximum time for computing the solution 
» ^ nt  - number of time values 

əs: ^ uu - array of displacement values normalized 
96: % by dividing by a factor equal to the force 
97: % magnitude over twice the density per unit 
os: % length. Position varies column-wise and 
99: À time varies row-wise in the array. 

o» ^ X,T - position and time arrays for the solution 
o: % uf  - deflection vector under the force 

ox ^4 t - time vector for the solution (same as the 
o3: % columns of T) 

oa: h 


o» t=linspace(0,tmax,nt)’; xmax=1.05*tmax*max(a,v) ; 
o: u=zeros(nt,4); nx=4; X-zeros(nt,nx); X(: ,nx)=xmax; 
o. c71/a/(a^2-v^2); xw-a*t; xf-v*t; T-repmat(t,1,4); 
os uw-c*xw*(v-atabs(v-a)); uf-c*xf*(v-a-abs(v-a)); 

o; if a»v, X(:,2)-xf; X(:,3)-xw; u(:,2)-uf; 

1: else, X(:,2)=xw; X(:,3)=xf; u(:,2)=uw; end 


E 


9.5 Waves in Rectangular or Circular Membranes 


Wave propagation in two dimensions is illustrated well by the transverse vibration 
of an elastic membrane. Membrane dynamics is discussed here for general boundary 
shapes. Then specific solutions are given for rectangular and circular membranes 
subjected to a harmonically varying surface force. In the next chapter, natural mode 
vibrations of an elliptical membrane are also discussed. We consider a membrane 
occupying an area S of the x, y plane bounded by a curve L where the deflection is 
Zero. The differential equation, boundary conditions, and initial conditions govern- 
ing the transverse deflection U (x, y, t) are 


V?U = c’ Un S P(2,9,t) , (x,y) € S, 
U(x,y,0) = Uo(x, y) , U(x, y, 0) ad Volx, y) E (x,y) € S, 
U(z,y,t) 20, (x,y) € L. 


The parameter c is the speed of wave propagation in the membrane and P is the 
applied normal load per unit area divided by the membrane tension per unit length. 
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When P = 0, the motion is resolvable into a series of normal mode vibrations [22] 
of the form un (x, y) sin(Q,t + €n) satisfying 


V?^u,(z,y) = —A2us(z,y), (xy) € S, Un(z,y) 20, (z,.y) € L 


where An = 2,,/cis a positive real frequency parameter, and u pn satisfies 


J Un (£, y) us (x, y) dzxdy = Cnônm , Cn = npo 


where nm is the Kronecker delta symbol. If the initial displacement and initial 
velocity are representable by a series of the modal functions, then the homogeneous 
solution satisfying general initial conditions is 


U (2, y,t) = Y un(z, y) [An cos(Qnt) + B, sin(Qnt) /Qn] 


n=1 


where 


An = // Uo(z, y) un (x, y) dzdy/Cn , Bn S Vo(z, y) us (v, y) dzdy/Cn. 


The nonhomogeneous case will be treated where the applied normal force on the 
membrane varies harmonically as 


P(z,y,t) = p(z, y) cos(Q) t) 


and Q does not match any natural frequency of the membrane. We assume that the 
membrane is initially at rest with zero deflection and p(x, y) is expandable as 


p(x, y) iA us (2x, y) dzdy , P= fT v p(z, y) us (x, y) dxdy/C,. 


n=1 


Then the forced response solution satisfying zero initial conditions is found to be 


(x, y,t -Drg ur US us (x, y) [cos(Q t) — cos(Qnt)]. 


This equation shows clearly that when the frequency of the forcing function is close 
to any one of the natural frequencies, then large deflection amplitudes can occur. 

Next we turn to specific solutions for rectangular and circular membranes. Con- 
sider the normal mode functions for a rectangular region defined by 0 € x < a, 
0 < y € b. It can be shown that the modal functions are 


Ung (2,y) = sin(nzz/a) sin(mzy/b) , Qnm = cry (n/a)? + (m/b)? 


and Cn = ab/4. In the simple case where the applied surface force is a concentrated 
load applied at (xo, yo), then 


p(z,y) = poó(x — xo) ó(y — vo) 
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where ó is the Dirac delta function. The series solution for a forced response solution 
is found to be 


c g Pam 
U(z,y,t) - à 3 3 a sin( —) sin( 72) [cos(Q t) — cos(Qnmt)] 


n=1m=1 

with j 
Pan = T sin(n20/a) sin(mmyo/b). 
a 

A similar kind of solution is obtainable as a series of Bessel functions when the 
membrane is circular. Transforming the wave equation to polar coordinates (r, 0) 
gives 
Upp +r tU, +r ?Us; = c ?Ug — P(r,0,t), O€r Xa, -r x0m, t» 0. 
To reduce the algebraic complexity of the series solution developed below, it is help- 
ful to introduce dimensionless variables p = r/a and T = ct/a . Then the boundary 
value problem involving a harmonic forcing function becomes 
Upp +p ‘Uptp ?Uego = U,,—p(p,0)sinWwr),0<p<1,-17<0<7,7>0, 


U(p, 0,0) =0, U.(p,0,0) = 0, 
where w = Q a/c. The modal functions for this problem are 
Unm(p, 0) = Ja(Anmp) cos(nÓ + en) 


involving the integer order Bessel functions, with Anm being the m" positive root of 
Ja (p) . These modal functions satisfy the orthogonality conditions discussed above 
and we employ the series expansion 


p(p,0) = 5 5 Jn (Anm) real(Anme’””) 


n=0m=1 
where 
9 TX 
Aun = SOOT ,0)p Ju (Anm p)e dp dé. 
ISO if P(p; 9) 0 Ju (Anmp)e p 
—m- 0 
Then the forced response solution becomes 
< S Jn (Anm) in 
U(p,0,7) = 5 5 Sha real(Anme””) [cos(wT) — cos(AnmT)]- 
n=0m=1 Te 


In the special case where a concentrated force acts at o = po, 0 = 0, so that 


P(p; 9) = pod(p — po)ó(0), 


then evaluating the double integral gives 


Anm = Popo Jn (Anmpo) 


and real( A,,,, e /"?^) simplifies to Anm cos(n0). 
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9.5.1 Computer Formulation 


Program membwave was written to depict wave propagation in a rectangular or 
circular membrane. Input data specifies information on membrane dimensions, forc- 
ing function frequency, force position coordinates, wave speed, and maximum time 
for solution generation. The primary computation tasks involve summing the double 
series defining the solutions. In the case of the circular membrane, the Bessel func- 
tion roots determining the natural frequencies must also be computed. The various 
program modules are listed in the following table. 


membwave | reads data, calls other computational mod- 
ules, and outputs time response 

memrecwv | sums the series for dynamic response of a 
rectangular membrane 

memcirwv | calls besjroot to obtain the natural frequen- 


cies and sums the series for the circular mem- 
brane response 
besjroot computes a table of Bessel function roots 
membanim | animates the dynamic response of the mem- 
brane 


9.5.2 Input Data for Program membwave 


Listed below are data cases showing animations of both rectangular and circular 
membranes. Waves propagate outward in a circular pattern from the point of appli- 
cation of the oscillating concentrated load. The membrane response becomes more 
complex as waves reflect from all parts of the boundary. In order to fully appreciate 
the propagating wave phenomenon, readers should run the program for several com- 
binations of forcing function frequency and maximum time. The two surface plots 
below show deflected positions before waves have reached the entire boundary, so 
some parts of the membrane surface still remain undisturbed. 


>> membwave; 


WAVE MOTION IN A RECTANGULAR OR CIRCULAR 
MEMBRANE HAVING AN OSCILLATING LOAD 


Select the geometry type: 
Enter 1 for a rectangle, 2 for a circle > ? 1 


Specify the rectangle dimensions: 
Give values for a,b > ? 2,1 


Give coordinates (x0,y0) where the 
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force act. Enter x0,y0 > ? 1.5,.5 


Enter the wave speed » ? 1 


The first forty-two natural frequencies are: 


3.5124 4.4429 5.6636 6.4766 7.0248 
7.8540 8.4590 8.8858 9.5548 9.9346 
10.0580 10.5372 11.3272 11.3272 11.4356 
12.6642 12.6642 12.9531 12.9531 13.3286 
14.0496 14.0496 14.4820 14.4820 14.8189 
15.7080 15.7080 15.7863 16.0190 16.0190 
16.6978 6.9180 6.9180 16.9908 17.5620 


Input the frequency of the forcing function ? 17.5 


Input the maximum solution evaluation time. 
> ? 5 


Press return for animation 
or enter 0 to stop > ? 


Press return for animation 
or enter 0 to stop > ? 0 


All done 
>> membwave; 


WAVE MOTION IN A RECTANGULAR OR CIRCULAR 
MEMBRANE HAVING AN OSCILLATING LOAD 


Select the geoemtry type: 
Enter 1 for a rectangle, 2 for a circle > ? 2 


The circle radius equals one. Give the radial 
distance r0 from the circle center to the 
force > ? .5 


Enter the wave speed » ? 1 


The first forty-two natural frequencies are: 
2.4048 3.8317 5.1356 5.5201 6.3801 
7.5883 8.4173 8.6537 8.7715 9.761 

10.1735 11.0647 11.0864 11.6199 1.7916 


7.0248 
9.9346 


12.2683 
13.4209 
15.4705 
16.3996 


17.5620 


7.0156 
9.9362 
2.2251 


12.3385 3.0152 3.3237 13.3543 13.5893 
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14.3726 


14.4755 14.7960 14.8213 14.9309 15.5898 
16.0378 16.2234 16.4707 16.6983 17.0037 
7.6159 7.8014 779599 18.0711 18.2876 


Input the frequency of the forcing function ? 17.5 


Input the maximum solution evaluation time. 
SORD 


Press return for animation 
or enter 0 to stop > ? 


Press return for animation 
or enter 0 to stop > ? 0 


All done 
>> 
MEMBRANE POSITION AT T= 0.94 
0.8 
0.6 
0.4 
0.2 
Pax 
go LOSERS, 
3 19279799: 99 9 9 0: 
-0.2 SSES 
-0.4 
-0.6 


y axis 


x axis 


Figure 9.10: Wave Propagation in a Rectangular Membrane 
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Figure 9.11: 
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Program membwave 


He AS de 


. function [u,x,y,t]= membwave(type,dims,alp,w,tmax) 


^ [u,x,y,t]=membwave(type,dims,alp,w, tmax) 


^ This program illustrates waves propagating in 
^ a membrane of rectangular or circular shape 

^ with an oscillatory concentrated load acting at 
^ an arbitrary interior point. The membrane has 


4 type  - 
. 4 dims  - 


= 
tal 

o 
“< 

[e] 
| 


: displ 7) 
. disp WAVE MOTION IN A RECTANGULAR OR CIRCULAR’ ) 
. disp MEMBRANE HAVING AN OSCILLATING LOAD’) 


. ^ fixed edges and is initially undeflected and 
. ^ at rest. The response u(x,y,t) is computed and 
. ^ animated plots depicting the motion are shown. 


1 for rectangle, 2 for circle 

vector giving problem dimensions. For 

type=1, dims=[a,b,x0,y0] where a and 

b are rectangle dimensions along the 

x and y axes. Also the oscillating 

force acts at (x0,y0). For type=2, 

a circular membrane of unit radius is 

analyzed with the concentrated force 

acting at (r0,0) where r0=dims(1) ; 

wave propagation velocity in the 

membrane 

frequency of the applied force. This 

can be zero if the force is constant. 

coordinates of the point where 

the force acts 

vectors of position and time values 

for evaluation of the solution 

an array of size [length(x),... 
length(y) , length(t) ] 

in which u(i,j,k) contains the 

normalized displacement at 

y(i),x(j),t(k). The displacement is 

normalized by dividing by 

max (abs(u(:))) 
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43 if nargin > 0 % Data passed through the call list 
ia» — ^4 must specify: type, dims, alp, w, tmax 

a: ^ Typical values are: a=2; b-1; alp=1; 

as: — ^ W=18.4; x0-1; yO=0.5; tmax-5; 


4: if type-- 

47: a-dims(1); b=dims(2); xO-dims(3); yO-dims(4); 
48: [u,x,y,t]=memrecwv(a,b,alp,w,x0,y0,tmax) ; 

49: else 

50: r0=dims (1) 5 

51: end 


5s: else ^ Interactive data input 


s disp? 7), disp’ Select the geometry type:?) 
5: — type-input(['Enter 1 for a rectangle, ’,... 


56: 2 for a circle > ? ’]); 

5; if type --1 

58: disp? °) 

59: disp(’Specify the rectangle dimensions: ’) 

60: s=input(’Give values for a,b > ? ’,’s’); 

61: s=eval([’[’,s,’]’]); a=s(1); b=s(2); 

62: displ?) 

63: disp(’Give coordinates (x0,y0) where the’) 

64: s=input(’force acts. Enter x0,y0 > ? ’,’s’); 

65: s=eval((’([’,s,’]?]); x0=s(1); yO0=s(2); 

66: disp(’ ’), alp=input(’Enter the wave speed > ? ?); 
67: 

68: N=40; M=40; pan=pi/a*(1:N)’; pbm=pi/b*(1:M) ; 

69: W-alp*sqrt(repmat(pan.^2,1,M)*repmat(pbm.^2,N,1)); 
70: wsort-sort(W(:)); wsort-reshape(wsort(1:42),6,7)'; 
71: disp? ^) 

72: disp([’The first forty-two natural ’,... 

73: 'frequencies are:’]) 

74: disp(wsort) 

75: w-input(... 

76: ?Input the frequency of the forcing function ? ?); 
TT: 

7* else 

79: disp? .?).. disp(... 

80: ^The circle radius equals one. Give the radial’) 
81: disp(... 

82: 'distance rO from the circle center to the’) 

83: rO-input(?force > ? ?); 

84: 

85: disp(’ ’), alp=input(’Enter the wave speed > ? ?); 
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4 First 42 Bessel function roots 

wsort-alp*[... 
2.4048 3.8317 5.1356 5.5201 6.3801 7.0156 
7.5883 8.4173 8.6537 8.7715 9.7611 9.9362 
10.1735 11.0647 11.0864 11.6199 11.7916 12.2251 
12.3385 13.0152 13.3237 13.3543 13.5893 14.3726 
14.4755 14.7960 14.8213 14.9309 15.5898 15.7002 
16.0378 16.2234 16.4707 16.6983 17.0037 17.2412 
17.6159 17.8014 17.9599 18.0711 18.2876 18.4335]; 


disp(^ ?J), disp(['The first forty-two '.... 
^'natural frequencies are:’]) 
disp(wsort) 
w-input(... 
’ Input the frequency of the forcing function ? ’); 
end 
disp(’ ?) 
disp( Input the maximum solution evaluation time.) 
tmax-input( > ? ’); 


; end 


: if type-- 


[u,x,y,t]=memrecwv(a,b,alp,w,x0,y0,tmax) ; 


; else 


th=linspace(0,2*pi,81); r=linspace(0,1,20); 
[u,x,y,t]-memcirwv(r,th,rO,alp,w,tmax); 


; end 


; 4^ Animate the solution 
; membanim(u,x,y,t); 


: function [u,x,y,t]= memrecwv(a,b,alp,w,x0,y0,tmax) 
4 [Du,x,y,tl-memrecwv(a,b,alp,w,x0,yO,tmax) 


;: ^ This function illustrates wave motion in a 

. 4 rectangular membrane subjected to a concentrated 
. 4 oscillatory force applied at an arbitrary 

. 4 interior point. The membrane has fixed edges 

. 4 and is initially at rest in an undeflected 

: 4 position. The resulting response u(x,y,t)is 

. 4 computed and a plot of the motion is shown. 

(4 a,b - side dimensions of the rectangle 
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| 4 alp - wave propagation velocity in the 


33: % membrane 

34: h W - frequency of the applied force. This 
35: % can be zero if the force is constant. 
36: ^ X0,y0 - coordinates of the point where 

37: % the force acts 

3: 4 X,y,t - vectors of position and time values 

39; f for evaluation of the solution 

40: À U - an array of size [length(y),... 

a: h length(x),length(t)] in which u(i,j,k) 
42: h contains the normalized displacement 
a3: h corresponding to y(i), x(j), t(k). The 
aa: h displacement is normalized by dividing 
45: h by max(abs(u(:))). 


; 4 The solution is a double Fourier series of form 


4 u(x,y,t)=Sum(A(n,m,x,y,t), n-1..N, m-1..M) 
5: 4 where 
5: 4 AQ,m,x,y,t)-sin(n*pi*x0/a)*sin(n*pi*x/a)*... 


52: % sin(m*pi*yO/b)*sin(m*pi*y/b)*... 
53: % (cos (w*t)-cos(W(n,m)*t))/... 
A ( w^2-W(n,m) ^2) 


5: ^ and the membrane natural frequencies are 
s: h W(n,m)=pixalp*sqrt ((n/a)^2*(m/b)^2) 


5: if nargin-- 


a-2; b-1; alp-1; tmax-3; w-13; x0=1.5; y0-0.5; 


; end 
; if a<b 


nx-31; ny-round(b/a*21); ny=ny+rem(ny+1,2) ; 


; else 


ny=31; nx-round(a/b*21); nx=nxtrem(nx+1,2); 


s end 
; x-linspace(0,a,nx); y-linspace(0,b,ny); 


s: N=40; M=40; pan-pi/a*(1:N)?; pbm-pi/b*(1:M); 

3: W=alp*sqrt (repmat(pan.^2,1,M)*repmat(pbm.^2,N,1)); 
. wsort=sort(W(:)); wsort=reshape(wsort (1:30) ,5,6)’; 
. Nt=ceil (40*tmax*alp/min(a,b)); 

; t=tmax/ (Nt-1)*(0:Nt-1) ; 


. 4 Evaluate fixed terms in the series solution 
; mat2sin(xO*pan)*sin(yO*pbm)./(w^2-W.^2); 
; Sxn=sin(x(:)*pan’); smy=sin(pbm’*y(:)’); 
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: uzzeros (ny ,nx , Nt) ; 
; for j-1:Nt 


A-mat.*(cos(w*t(j))-cos(W*t (j))) ; 
ujesxn*(A*smy); u(:,:,j)=uj’; 


; end 


; function [u,x,y,t,r,th]=memcirwv(r,th,r0,alp,w,tmax) 
4 Du,x,y,t,r,th]-memcirwv(r,th,rO,alp,w,tmax) 


. 4 This function computes the wave response in a 
. 4 circular membrane having an oscillating force 
. 4 applied at a point on the radius along the 

. 4 positive x axis. 


s 4 r,th - vectors of radius and polar angle values 
» ^ rO - radial position of the concentrated force 
hW - frequency of the applied force 

. 4 tmax - maximum time for computing the solution 


; 4 User m function used: besjroot 


; if nargin-- 


r0-.4; w=15.5; th-linspace(0,2*pi,81); 


24: r-linspace(0,1,21); alp=1; 

205. end 

206: 

27: Nt=ceil(20*alp*tmax);  t-tmax/(Nt-1)*(0:Nt-1); 


: 4 Compute the Bessel function roots needed in 
. 4 the series solution. This takes a while. 
: lam-besjroot(0:20,20,1e-3); 


: 4 Compute the series coefficients 

: [nj,nk]=size(lam); r=r(:)’; nr-length(r); 
. th=th(:); nth-length(th); nt-length(t); 

. N=repmat((O:nj-1)’,1,nk); Nvec=N(:)’; 

; c=besselj(N,lam*r0)./(besselj(... 


N*1,1am).^2.*(1am.^2-w^2)); 


: c(1,:)=c(1,:)/2; c=c(:)?’; 


. % Sum the series of Bessel functions 
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: lamvec=lam(:)’; wlam-w./lamvec; 

s C=Ccos(th*Nvec) .*repmat(c,nth,1); 

. rmat=besselj(repmat (Nvec’,1,nr),lamvec’*r) ; 
; u=zeros(nth,nr,nt); 


: for k-1:nt 
tvec--cos(w*t(k))-*cos(lamvec*t(k)); 
u(:,:,k)=c.*repmat (tvec,nth,1)*rmat; 

: end 


: u=2/pi*u; x-cos(th)*r; y-sin(th)*r; 


: function rts-besjroot(norder,nrts,tol) 
» ^ rts-besjroot(norder,nrts,tol) 


: 4 This function computes an array of positive roots 
. 4 of the integer order Bessel functions besselj of 

. 4 the first kind for various orders. A chosen number 
: 4 of roots is computed for each order 

. 4 norder - a vector of function orders for which 


3: 4 roots are to be computed. Taking 3:5 
4 for norder would use orders 3,4 and 5. 
. 4 nrts  - the number of positive roots computed for 
TA each order. Roots at x-0 are ignored. 
«4 rts - an array of roots having length(norder) 
D rows and nrts columns. The element in 
-h column k and row i is the k’th root of 
Eh the function besselj(norder(i),x). 

^ tol - error tolerance for root computation. 


; if nargin<3, tol-1e-5; end 

; Jn=inline(’besselj(n,x)’,’x’,’n’); 

. N=length(norder); rts-ones(N,nrts)*nan; 
: opt=optimset (’TolFun’ ,tol, ’TolX’ ,tol) ; 
: for k=1:N 


n-norder(k); xmax-1.25*pi*(nrts-1/4*n/2); 
xsrch-.1:pi/4:xmax; fb-besselj(n,xsrch); 
nf-length(fb); K-find(fb(1:nf-1).*fb(2:nf)«-0); 
if length(K)«nrts 

disp(C Search error in function besjroot’) 

rts-nan; return 
else 

K-K(1:nrts); 

for i-1:nrts 
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z^ 


; if nargin--0; 


interval-xsrch(K(i):K(i)*1); 
rts(k,i)-fzero(jn,interval,opt,n); 
end 


s function membanim(u,x,y,t) 


function membanim(u,x,y,t) 


This function animates the motion of a 
vibrating membrane 


u array in which component u(i,j,k) is the 
displacement for y(i),x(j),t(k) 

x,y arrays of x and y coordinates 

t vector of time values 


Compute the plot range 


[u,x,y,t]=memrecwv(2,1,1,15.5,1.5,.5,5); 


; end 

; xmin=min(x(:)); xmax-max(x(:)); 

; ymin=min(y(:)); ymax-max(y(:)); 

: xmid=(xmintxmax)/2; ymid=(ymintymax) /2; 

. d=max (xmax-xmin, ymax-ymin)/2; Nt=length(t) ; 
s range-[xmid-d,xmid*d,ymid-d,ymid*d,... 


3«nin(u(:)) ,3*max(u(:))]; 


; while 1 4 Show the animation repeatedly 


disp(’ ’), disp(C? Press return for animation’) 
dumy=input(’or enter 0 to stop > ? ’,’s’); 
if ~isempty (dumy) 
disp(’ ’), disp(’All done’), break 
end 


% Plot positions for successive times 
for j-1:Nt 
surf(x,y,u(:,:,j)), axis(range) 
xlabel(?x axis’), ylabel(’y axis?) 
zlabel(?u axis’), titl=sprintf(... 
MEMBRANE POSITION AT T=%5.2f’ ,t(j)); 
title(titl), colormap([1 1 1]) 
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312: colormap([127/255 1 212/255]) 


313: ^ axis off 

314: drawnow, shg, pause(.1) 
315: end 

316: end 


9.6 Wave Propagation in a Beam with an Impact 
Moment Applied to One End 


Analyzing the dynamic response caused when a time dependent moment acts on 
the end of an Euler beam involves a boundary value problem for a fourth order linear 
partial differential equation. In the following example we consider a beam of uniform 
cross section which is pin-ended (hinged at the ends) and is initially at rest. Suddenly, 
a harmonically varying moment M cos(QoT) is applied to the right end as shown in 
Figure 9.12. Determination of the resulting displacement and bending moment in the 
beam is desired. Let U be the transverse displacement, X the longitudinal distance 


Mgceos(OgT) 


E LL 


Figure 9.12: Beam Geometry and Loading 


from the right end, and T' the time. The differential equation, boundary conditions, 
and initial conditions characterizing the problem are 


tU oU 


0?U 0?U 

U(0,T) =0, Z5(0,T) =0, U(L,T) =0, S5(L,T) = Mo cos(MT)/(EL), 
OU 

U(0, T) =0 E ar 0T) E 0, 


where L is the beam length, ET is the product of the elastic modulus and the moment 
of inertia, and Ap is the product of the cross section area and the mass density. 

This problem can be represented more conveniently by introducing dimensionless 
variables 


E ES BED gs SBE ot 5!) eae _ Pu 
Uere apa mE Se coe pp O TT gan 
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The new boundary value problem is then 


4 2 

— E 0<e<l,t> >0, 

2 2 
u(0,t) — 0, oF (0, t) 20, u(1,t)=0, A. t) = cos(wt), 
u(z,0) = S (5,0) 20, 0«z «1. 


The problem can be solved by combining a particular solution w which satisfies 
the differential equation and nonhomogeneous boundary conditions with a homoge- 
neous solution in series form which satisfies the differential equation and homoge- 
neous boundary conditions. Thus we have u = w + v. The particular solution can 
be found in the form 

w = f(x) cos(wt) 
where f(x) satisfies 

F” (z) = w f(x) 


and 


f(0) = f"(0) = f(1) 20, f"(1) =1 


This ordinary differential equation is solvable as 


4 
= 1 cpet? 
k=1 


where 
Sk = Jw eme(k-1)/2 
and 2 = 4/—1. The boundary conditions require 


4 4 4 
1 £0, Steps dy X cke™ — 0, x Cy 52 65^ E 
k—1 k=1 k=1 


Solving these simultaneous equations determines the particular solution. The initial 
displacement for the particular solution can be expanded in a Fourier series as an odd 
valued function of period 2. Hence we can write 


= Ow 
t) inka in(k t 
w(0, t) 2 Ck € = M ay sin( TT), 2t —(0,t) =0 
k-—oo k=1 
involving complex Fourier coefficients, c, and a, = —2imag(c;,). The homoge- 


neous solution is representable as 


v(z, t) Ls cos(7? k?t) sin(kra) 
k=1 
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so that w + v combine to satisfy the desired initial conditions of zero displacement 
and velocity. 

Of course, perfect satisfaction of the initial conditions cannot be achieved with- 
out taking an infinite number of terms in the Fourier series. However, the series 
converges very rapidly because the coefficients are of order n ^?. When a hundred 
or more terms are used, an approximate solution produces results which satisfy the 
differential equation and boundary conditions, and which insignificantly violate the 
initial displacement condition. It is important to remember the nature of this er- 
ror when examining the bending moment results presented below. Effects of high 
frequency components are very evident in the moment. Despite the oscillatory char- 
acter of the moments, these results are exact for the initial displacement conditions 
produced by the truncated series. These displacements agree closely with the exact 
solution. 

A program was written to evaluate the series solution to compute displacements 
and moments as functions of position and time. Plots and surfaces showing these 
quantities are presented along with timewise animations of the displacement and 
moment across the span. The computation involves the following steps: 


1. Evaluate f(x); 


2. Expand f(a) using the FFT to get coefficients for the homogeneous series 
solution; 


3. Combine the particular and homogeneous solution by summing the series for 
any number of terms desired by the user; 


4. Plot u and m for selected times; 
5. Plot surfaces showing u(x, t) and m(z, t); 
6. Show animated plots of u and m. 


The principal parts of the program are shown in the table below. 


bemimpac | reads data and creates graphical output 

beamresp | converts material property data to dimension- 
less form and calls ndbemrsp 

ndbemrsp | construct the solution using Fourier series 


sumser sums the series for displacement and moment 
animate animates the time history of displacement and 
moment 


The numerical results show the response for a beam subjected to a moment close 
to the first natural frequency of the beam. It can be shown that, in the dimensionless 
problem, the system of equations defining the particular solution becomes singular 
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Displacement for Nearly Resonant Moment Acting at Right End 
0.03 T T T T T T T T 


0.02 - Number of series terms used = 200 ^ * E 


displacement 


L 1 I L L L L 1 
0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 
x axis 


Figure 9.13: Displacement Due to Impact Moment at Right End 


when w assumes values of the form k?7? for integer k. In that instance the series 
solution provided here will fail. However, values of w near to resonance can be used 
to show how the displacements and moments quickly become large. In our example 
we let ET, Ap, l, and Mo all equal unity, and w = 0.9577. Figures 9.13 and 9.14 
show displacement and bending moment patterns shortly after motion is initiated. 
The surfaces in Figures 9.15 and 9.16 also show how the displacement and moment 
grow quickly with increasing time. The reader may find it interesting to run the 
program for various choices of w and observe how dramatically the chosen forcing 
frequency affects results. 
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Bending Moment for Nearly Resonant Moment Acting at Right End 
T T T T T T T 


moment 


Number of series terms used - 200 


0 0.1 0.2 0.3 0.4 05 0.6 0.7 0.8 0.9 1 
Figure 9.14: Bending Moment in the Beam 
Transverse Deflection as a Function of Time and Position 
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Figure 9.15: Displacement Growth Near Resonance 
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Bending Moment as a Function of Time and Position 
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Figure 9.16: Moment Growth Near Resonance 


MATLAB Example 


Program bemimpac 


: function bemimpac 
. ^ Example: bemimpac 


ROOM H 
2223 


. ^ This program analyzes an impact dynamics 
^ problem for an elastic Euler beam of 
^ constant cross section which is simply 
^ supported at each end. The beam is initially 
^ at rest when a harmonically varying moment 
^ mO*cos(wO*t) is applied to the right end. 
The resulting transverse displacement and 
^ bending moment are computed. The 
^ displacement and moment are plotted as 
^ functions of x for the three time values. 

. ^ Animated plots of the entire displacement 
s 4 and moment history are also given. 


e U N FP OOLCHAAN ODA 
=e 


7 h User m functions required: 
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UA beamresp, beamanim, sumser, ndbemrsp 


2: fprintf NnDYNAMICS OF A BEAM WITH AN ?); 

. fprintf COSCILLATING END MOMENT n?); 

22 ei-1; arho-1; len-1; m0-1; w0-.90*pi^2; 

23; tmin-0; tmax=5; nt=101; 

: xmin-0; xmax-len; nx-151; ntrms-200; 

s [t,x,displ,mom]=beamresp(ei,arho,len,m0,w0,... 


tmin,tmax,nt,xmin,xmax,nx,ntrms); 


ə: disp? ?) 
2: disp(?Press [Enter] to see the deflection’) 
2: disp(?for three positions’), pause 


. np=[3 5 8]; clf; pltsave=0; 
. dip=displ(mp,:); mop=mom(np, :); 
: plot (x,dip(1,:),?-k’,x,dip(2,:),?:b?,... 


x,dip(3,:),?--r°); 


s Xlabel(’x axis’); ylabel(’displacement’) ; 

3: hh=gca; 

. r(1:2)=get(hh,’XLim’); r(3:4)=get(hh,’YLim’) ; 
: xp=r(1)+(r(2)-r(1))/10; 

: dp=r(4)-(r(4)-r(3))/10; 

. tstr-['Displacement for Nearly Resonant’ 


^ Moment Acting at Right End’]; 


: title(tstr) ; 
. text (xp,dp,[’Number of series terms ’ 


^used = ’,int2str(ntrms)]); 


s legend(’t=0.10’, ’t=0.20’, ’t=0.35’ ,3) 

: disp? 7) 

. disp(’Press [Enter] to the bending moment’) 
. disp’ for three positions’) 

: Shg; pause 

so: if pltsave, print -deps S3positns, end 


52: clf; 
53: plot(x,mop(1,:),?-kK?’,x,mop(2,:),?:b?,... 


x,mop(3,:),?--r°); 


s h=gca; 

s: r(1:2)=get(h,’XLim’); r(3:4)=get(h,’YLim’); 
s mper (3) * (r (4) -r (3))/10; 

s Xlabel(?x axis’); ylabel(’moment’) ; 

; tstr=[’Bending Moment for Nearly Resonant’ 


^ Moment Acting at Right End’]; 


: title(tstr) ; 
. text (xp,mp,[’Number of series terms ’ 
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^used = ’,int2str(ntrms)]); 


: legend (^ £20.10? ,? £20.20? ,? £20.35? ,2), 

s disp(^ 2). disp(... 

. "Press [Enter] to see the deflections surface’) 
: Shg, pause 

; if pltsave, print -deps 3moments, end 


; inct-2; incx-2; 

: ht20.75; it-1:inct:.8*nt; ix-1:incx:nx; 
. tt=t (it); xx-x(x); 

. dd=displ(it,ix); mm-mom(it,ix); 

; a=surf (xx,tt,dd); 

; tstr=[? Transverse Deflection as a ’ 


>Function of Time and Position’ js 


; title(tstr); 

; Xlabel(’x AO ylabel(’ time’) ; 

; zlabel(’transverse deflection’); 

: disp? 7), disp([’Press [Enter] to ’, 


>see the bending moment surface’]) 


: Shg, pause 
: if pltsave, print -deps bdeflsrf, end 


s a-surf(xx,tt,mm); 
. title([’Bending Moment as a Function ’ 


of Time and Position’]) 


. Xlabel(’x axis’); ylabel(’time’); 

. Zlabel(’bending moment’); disp(’ ’) 

. disp( Press [Enter] to see animation of’); 

. disp(’the beam deflection’), shg, pause 

: if pltsave, print -deps bmomsrf, end 

» beamanim(x,displ,.1,’Transverse Deflection’, 


^X axis’,’deflection’), disp(’ ?) 


s disp(’Press [Enter] to see animation’); 
. disp(’?of the bending moment’); pause 
. beamanim(x,mom,.1,’Bending Moment History’, 


’x axis’,’moment’); 


. fprintf(’\nAll Done\n’); close; 


: function [t,x,displ,mom]- 


beamresp(ei,arho,len,m0,w0,tmin,tmax, 
nt,xmin,xmax,nx,ntrms) 


2 


: 4 [t,x,displ,mom]-beamresp(ei,arho,len,m0, 


© 2003 by CRC Press LLC 


wO,tmin,tmax,nt,xmin,xmax,nx,ntrms) 


This function evaluates the time dependent 
displacement and moment in a constant 
cross section, simply supported beam which 
is initially at rest when a harmonically 
varying moment is suddenly applied at the 


right end. 


The resulting time histories of 


displacement and moment are computed. 


ei - 
arho - 
len E 
mO,wO - 
tmin,tmax - 
nt = 


xmin,xmax - 


ntrms = 


mom =| 


modulus of elasticity times 
moment of inertia 

mass per unit length of the 

beam 

beam length 

amplitude and frequency of the 
harmonically varying right end 
moment 

minimum and maximum times for 
the solution 

number of evenly spaced 

solution times 

minimum and maximum position 
coordinates for the solution. 
These values should lie between 
zero and len (x-0 and x-len at 
the left and right ends). 

number of evenly spaced solution 
positions 

number of terms used in the 
Fourier sine series 

vector of nt equally spaced time 
values varying from tmin to tmax 
vector of nx equally spaced 
position values varying from 
xmin to xmax 

matrix of transverse 
displacements with time varying 
from row to row, and position 
varying from column to column 
matrix of bending moments with 
time varying from row to row, 
and position varying from column 
to column 
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w 


Qo N 


n a oO o Oo qg Qo 
o 


oO 


75: 


95: 
; if nargin<3, tpause=.1; end; 


B 


ot 


; ^ User m functions called: ndbemrsp 


; tcof=sqrt (arho/ei)*len*2; dcof=m0*len*2/ei; 
; tmin=tmin/tcof; tmax-tmax/tcof; w-wO*tcof; 
; xmin-xmin/len; xmax-xmax/len; 


[t,x,displ,mom]-... 


: ndbemrsp(w,tmin,tmax,nt,xmin,xmax,nx,ntrms); 
; t-t*tcof; x-x*len; 
: displ-displ*dcof; mom-mom*mO; 


&. function beamanim(x,u,tpause,titl,xlabl,ylabl) 
: 4 beamanim(x,u,tpause,titl,xlabl,ylabl,save) 


: 4 This function draws an animated plot of data 
. 4 values stored in array u. The different 

. 4 columns of u correspond to position values 

» 4 in vector x. The successive rows of u 

: 4 correspond to different times. Parameter 


^ tpause controls the speed of animation. 


:% u - matrix of values to animate plots 
:% of u versus x 

h X - spatial positions for different 
-h columns of u 

:% tpause - clock seconds between output of 
:% frames. The default is .1 secs 
(4 when tpause is left out. When 
hy tpause=0, a new frame appears 
mS when the user presses any key. 
; 4 titl  - graph title 

; 4 xlabl - label for horizontal axis 

: 4 ylabl - label for vertical axis 


3: if nargin«6, ylabl=’’; end; 
; if nargin<5, xlabl=’’; end 
if nargin<4, titl=’’; end; 
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[ntime,nxpts]-size(u); 


; umin=min(u(:)); umax-max(u(:)); 

: udif-umax-umin; uavg=.5*(umintumax) ; 

; xmin-min(x); xmax=max(x) ; 

. xdif-xmax-xmin; xavg=.5*(xmintxmax) ; 

3: Xwmin-xavg-.55*xdif; xwmax=xavgt.55*xdif; 

; uwnin-uavg-.55*udif; uwmax=uavg+.55*udif; clf; 
; axis([xwmin,xwmax,uwmin,uwmax]); title(titl); 
; xlabel(xlabl); ylabel(ylabl); hold on; 


; for j-1:ntime 


ut=u(j,:); 
plot(x,ut,'-?); axis(’off’); figure(gcf); 
if tpause-- 
pause; 
else 
pause (tpause) ; 
end 
if j==ntime, break, else, cla; end 


; end 
: 4 print -deps cntltrac 
; hold off; clf; 


; function [u,t,x] = sumser(a,b,c,funt,funx, 


tmin,tmax,nt,xmin,xmax,nx) 


; ^ [u,t,x] = sumser(a,b,c,funt,funx,tmin, 
» | tmax,nt,xmin,xmax,nx) 


: 4 This function evaluates a function U(t,x) 

. 4 which is defined by a finite series. The 

. 4 series is evaluated for t and x values taken 
. 4 on a rectangular grid network. The matrix u 
3 ^ has elements specified by the following 

. 4 series summation: 


; ^ u(i,j) =  sum( a(k)*funt(t(i)*b(k))*... 
-h k=1:nsum 
Ut funx (c(k) *x(j)) 


: 4 where nsum is the length of each of the 
. 4 vectors a, b, and c. 
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3: 4 a,b,c - 


; 4 funt,funx - 


^ tmin,tmax,nt - 


^ xmin,xmax,nx - 


3 h t,x te 


vectors of coefficients in 
the series 

handles of functions accepting 
matrix argument. funt is 
evaluated for an argument of 
the form funt(t*b) where t is 
a column and b is a row. funx 
is evaluated for an argument 
of the form funx(c*x) where 

c is a column and x is a row. 
produces vector t with nt 
evenly spaced values between 
tmin and tmax 

produces vector x with nx 
evenly spaced values between 
xmin and xmax 

the nt by nx matrix 
containing values of the 
series evaluated at t(i),x(j), 
for i-1:nt and j-1:nx 

column vectors containing t 
and x values. These output 
values are optional. 


; tt=(tmin: (tmax-tmin) / (nt-1) : tmax) ! ; 
; Xx- (xmin: (xmax-xmin)/(nx-1):xmax); a=a(:).’; 
; u=a(ones(nt,1),:).*feval(funt,tt*b(:).’)*... 


feval(funx,c(:)*xx); 


; if nargout>1, t=tt; x=xx’; end 


: function [t,x,displ,mom]- ... 


ndbemrsp(w,tmin,tmax,nt,xmin,xmax,nx,ntrms) 


4 ([t,x,displ,mom] 
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=ndbemrsp(w,tmin,tmax,nt,... 
xmin,xmax,nx,ntrms) 


: 4 This function evaluates the nondimensional 
. 4 displacement and moment in a constant 

» ^ cross section, 
. 4 is initially at rest when a harmonically 


simply supported beam which 


| 4 tmin,tmax - 
heat = 


: 4 xmin,xmax - 


; A ntrms - 


. 4 mom - 


; if nargin « 8, 
. Xxft-1/nh*(0:nh)'; 

; X=xmint+ (xmax-xmin) /(nx-1)*(O:nx-1)’; 
. t=tmint+(tmax-tmin) /(nt-1)*(O:nt-1)’; 
; Cwt=cos (wet) ; 


. 4 varying moment of frequency w is suddenly 
. 4 applied at the right end. The resulting 
. 4 time history 


Aw s 


is computed. 


frequency of the harmonically 
varying end moment 

minimum and maximum 
dimensionless times 

number of evenly spaced 
solution times 

minimum and maximum 
dimensionless position 
coordinates. These values 
should lie between zero and 
one (x=0 and x=1 give the 
left and right ends). 
number of evenly spaced 
solution positions 

number of terms used in the 
Fourier sine series 

vector of nt equally spaced 
time values varying from 
tmin to tmax 

vector of nx equally spaced 
position values varying 
from xmin to xmax 

matrix of dimensionless 
displacements with time 
varying from row to row, 
and position varying from 
column to column 

matrix of dimensionless 
bending moments with time 
varying from row to row, and 
position varying from column 
to column 


; % User m functions called:  sumser 


w-0; end; nft-512; nh=nft/2; 
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; 4^ Get particular solution for nonhomogeneous 
s ^ end condition 
; if w --0 4 Case for a constant end moment 


cp=[1 0 0.0: 0-02 07 1111; 0:0 2.8] N55 
[0;0;0;1]; 

yp=[ones(size(x)), x, x.^2, x.°3]*cp; yp=yp’; 

mp-[zeros(nx,2), 2*ones(nx,1), 6*x]*cp; 

mp=mp’ ; 

ypft-[ones(size(xft)), xft, xft.^2, xft.^3]*cp; 


; 4 Case where end moment oscillates 
s ^ with frequency w 
; else 


s-sqrt(w)*[1, i, -1, -i]; es-exp(s); 
cp-[ones(1,4); s.^2; es; es.*s.^2]^ 

[0; 0; 0; 1]; 
yp=real(exp(x*s)*cp); yp-yp'; 
mp-real(exp(x*s)*(cp.*s(:).^2)); mp=mp’; 
ypft-real(exp(xft*s)*cp); 


3 end 


s ^ Fourier coefficients for 
» ^ particular solution 
: yft--fft([ypft;-ypft(nh:-1:2)]) /nft ; 


: 4 Sine series coefficients for 

: 4 homogeneous solution 

; acof--2*imag(yft(2:ntrms*1)); 

: ccof-pi*(1:ntrms)?; bcof=ccof.*2; 


;: 4 Sum series to evaluate Fourier 

365 4 Series part of solution. Then combine 

; ^ with the particular solution. 

. displ=sumser (acof ,bcof,ccof,@cos,@sin,... 


tmin,tmax,nt,xmin,xmax,nx); 


: displ=displ+cwt*yp; acof-acof.*bcof; 
; mom-sumser (acof ,bcof,ccof,’cos’,’sin’,... 


tmin,tmax,nt,xmin,xmax,nx); 


: Mom=-mom+cwt*mp ; 
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EE: SeSe 


9.7 Forced Vibration of a Pile Embedded in an Elastic Medium 


Structures are often supported by piles embedded in soil foundations. The re- 
sponse of these systems, when the foundation is shaken in the manner occurring in 
an earthquake, has considerable practical interest. Let us examine a simple model 
approximating a single pile connected to an overlying structure. The pile is treated 
as a beam of uniform cross section buried in an elastic medium. An attached mass 
at the top causes inertial resistance to translation and rotation. The beam, shown in 
Figure 9.19 in a deflected position, has length £ with x = 0 denoting the lower end 
and x = £ denoting the top. Rotating the member 90° from the vertical is done to 
agree with the coordinate referencing traditionally used in beam analysis. We are in- 
terested in the steady-state response when the foundation displacement is y o cos(wt). 
For convenience we use a complex valued forcing function and get the final results 
by taking the real part of the complex valued solution. The transverse bending re- 
sponse is to be computed when the surrounding elastic medium has an oscillatory 
motion of the form 


yf = Yoe. 


The differential equation governing transverse oscillations of the beam is 


O? y(a, t) 


tyle, t) 
El ga AP ag 


+k (yoe'* — y) 

where EI is the product of the elastic modulus and the inertial moment of the beam, 
Ap is the product of the cross section area and the mass per unit volume, and k de- 
scribes the foundation stiffness in terms of force per unit length per unit of transverse 
deflection. The shear V and moment M in the beam are related to the deflection 
y(a, t) by 

O° y(x, t) O*y(z, t) 

Oz? Ox? 


In the current analysis we consider forced response of frequency w described in the 
form 


VEI . 


,M-EI 


yx, t) = f(x)e^" 
so that 
V= EI f” (x) ; M= EI f” (£). 


The boundary conditions at x = 0 require vanishing moment and shear: 
f”(0)=0, f” (0) — 0. 


The boundary conditions at x = £ are more involved because inertial resistance of 
the end mass must be handled. We assume that the gravity center of the end mass is 
located along the axis of the beam at a distance h above the top end. Furthermore, 
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MAN 


Figure 9.17: Forced Vibration of a Pile in an Elastic Medium 


the attached body has a mass mo and inertial moment Jo about its gravity center. The 
angular acceleration 0 and the transverse acceleration a,,, are expressible as 


_ Py (Et) 


nr = —w" f (Let 


and 5 

am = usn + hb = -wet F(A + hf'(£)]. 
Writing equations of motion for the end mass gives 

Modm = V (L, t) and 7.9m = —hV(E,t) — M(Lt). 
Representing these conditions in terms of f(a) yields 

=w? mol f (0) + hf'(0)] = EIS” (0) and w*jof! (0) = EIS”) + hf" (£)]. 
Furthermore, the factor e*t cancels out of the differential equation 
EI f" (a) = (Ap? — k)f(z) + yok. 


The general solution of this fourth order linear differential equation is expressed as 


f(z) = Lese l 


Tk- cU 


where s, are complex roots given by 


Ap? -kV UT 5 
8,— (“) g-7Dn/2. 9-1 93.4. 
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The conditions of zero moment and shear at z — 0 lead to 


4 4 
Deaton EMEN 
1 s; — 0, 1 sic, — 0. 


j=l j=0 


The shear and moment conditions at x = £ require 


4 4 
beite, = mou? (1+hs,) ec 
J Ji o J) J 


and 


EN 


4 


EC. + hs?) esc, = Jow UN sye Soh e 


j—1 j=l 


The system of four simultaneous equations can be solved for c1,..., 


forced response solution corresponding to a foundation motion 
real (y,e'^*) = yo cos(wt) 


is given by 
y(x, t) = real ( f (z)e'**) 


where f(x) is complex valued. 


c4. Then the 


The function pilevibs evaluates the displacement, moment, and shear for 0 < x < 
£,0 € t € 27/w. Surface plots of these quantities are shown in Figures 9.18 through 
9.20. Figure 9.21 is a single frame from an animation depicting how the pile and the 


attached mass move. 
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Deflection Surface for a Vibrating Pile 


transverse deflection 


t"w axis 


x axis 


Figure 9.18: Deflection Surface for a Vibrating Pile 


Bending Moment in the Pile 


i 


bending moment 


t"w axis 
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Figure 9.19: Bending Moment in a Vibrating Pile 
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Shear Force in the Pile 
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Figure 9.20: Shear Force in a Vibrating Pile 


Forced Vibration of a Pile 


Figure 9.21: Frame from Pile Animation 
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Program Output and Code 


Program pilevibs 


: function pilevibs 


Example: pilevibs 

The routine is used to solve an example 
problem using function pvibs. The example 
involves a steel pile 144 inches long which 
has a square cross section of 4 inch depth. 
The pile is immersed in soil having an elastic 
modulus of 200 psi. The attached mass weighs 
736 lb. The foundation is shaken at an 
amplitude of 0.5 inch with a frequency of 

20 cycles per second. 


User m functions required: pvibs 


: clear; 
: L= 
: £732.2*12; Density steel-0.284; 
. rho=Density_steel/g; 

2: Cap_w=36; Cap h-18; Cap_t=4; 

; m0-Cap. w*Cap. h*Cap. t*rho; 

22; jO=m0/12* (Cap. h^2*Cap. w^2) ; 

23: h= 
: OL 
5 nx-42; nt-25; 


144; d-4; a-d^2; I-d^4/12; e=30e6; ei-e*I; 


Cap .h/2; arho-a*rho; 
soil=200; k=e_soil*d; y0-0.5; w-40*pi; 


2: [t,x,y,m,v]- . 


pvibs(yO,ei, arho, L,k,w,h,mO, jO,nx,nt) ; 


. function [t,x,y,m,v]- . 


pvibs(y0, ei, arho, L,k,w,h,m0,j0,nx,nt) 


[t,x,y,m,v]-pvibs ... 
(yO,ei,arho,L,k,w,h,mO, jO,nx,nt) 


This function computes the forced harmonic 
response of a pile buried in an oscillating 
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65: 


elastic medium. The lower end of the pile is 
free from shear and moment. The top of the 
pile carries an attached body having general 
mass and inertial properties. The elastic 
foundation is given a horizontal oscillation 
of the form 


yf-real(yO*exp(i*w*t)) 


The resulting transverse forced response of 
the pile is expressed as 


y (x, t)=real (f (x) *exp(i*w*t) ) 


where f(x) is a complex valued function. The 
bending moment and shear force in the pile 
are also computed. 


yO - amplitude of the foundation oscillation 

ei | - product of moment of inertia and 
elastic modulus for the pile 

arho - mass per unit length of the pile 

L - pile length 

k - the elastic resistance constant for the 
foundation described as force per unit 
length per unit of transverse 
deflection 

W - the circular frequency of the 
foundation oscillation which vibrates 
like real(yO*exp(i*w*t)) 

h - the vertical distance above the pile 
upper end to the gravity center of the 
attached body 

mO  - the mass of the attached body 

jO  - the mass moment of inertia of the 
attached body with respect to its 
gravity center 


nx  - the number of equidistant values along 
the pile at which the solution is 
computed 

nt - the number of values of t values at 


which the solution is computed such 
that O <= w*t <= 2*pi 


t - a vector of time values such that the 
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2 


Dd 


:e 


ih 
Oy 
c 
; m=real (ei*xs2(ones(nx,1),:).*esx*c*eiwt)’; 
;: vereal(ei*s3(ones(nx,1),:).*esx*c*eiwt)'; 
S t 


pile moves through a full period of 
motion. This means 0 <= t <= 2*pi/w 

x - a vector of x values with 0 <= x <= L 

y - the transverse deflection y(x,t) for 
the pile with t varying from row to 
row, and x varying from column to 
column 

m,v - matrices giving values bending moment 
and shear force 


User m functions called: none 


Default data for a steel pile 144 inches long 
f nargin-- 

yO=0.5; ei-64e7; arho-0.0118; L-144; k-800; 
w=125.6637; h-9; m0-1.9051; j0-257.1876; 
nx-42; nt-25; 

nd 


» w2=w°2; x-linspace(0,L,nx)'; 
2G 


m 
f 
T 
T- 
ae 
=: 


2 
m 


(C 


-linspace(0,2*pi/w,nt); 


Evaluate characteristic roots and complex 
exponentials 
-((arhox*w2-k)/ei)^(1/4)*[1,i,-1,-il; 
2-s.^2; s3-s2.*s; 

OzyO*k/(k-w2*arho); esl-exp(s*L); 
sx=exp(x*s); eiwt-exp(i*w*t); 


Solve for coefficients to satisfy the 

boundary conditions 

-[s2; s3; esl.*(h*s3+s2-j0*w2/eixs) ; 
esl.*(s3*m0*w2/ei*(1*h*s))]^ 
[0;0;0;-cOx*m0O*w2/ei]; 


Compute the deflection, moment and shear 


=real((cOtesx*c) *eiwt)’; 
pe-real(s.*esl*c*eiwt)'; 


=t’; x=x’; hold off; clf; 


: 4 Make surface plots showing the deflection, 
. 4 moment, and shear over a complete period of 
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. 4 the motion 

; surf (x,t*w,y); 

3 xlabel(?x axis’); ylabel(’t*w axis’); 

34: Zlabel(?transverse deflection’); 

s title(’Deflection Surface for a Vibrating Pile’); 
36: grid on; figure(gcf) 

. 4 print -deps pilesurf 

. dispC Press [Enter] to continue’), pause 


; surf (x,t*w,m); 

: Xlabel(’x axis’); ylabel(’t*w axis’); 

. zZlabel(’bending moment’); 

3. title(’Bending Moment in the Pile’) 

: grid on; figure(gcf) 

s ^ print -deps pilemom; 

; disp(’Press [Enter] to continue’), pause 


; surf (x,t*w,v); 

: Xlabel(’x axis’); ylabel(’t*w axis’); 

s ZLabel(’shear force’); 

si: title(’Shear Force in the Pile’); 

s: grid on; figure(gcf) 

5» ^ print -deps pilesher 

s disp(?Press [Enter] to see animation’), pause 


s: ^ Draw an animation depicting the pile response 
st: ^ to the oscillation of the foundation 

s: fu=.10/max(y(:)); p=[-0.70, 0.70, 9.1, 1.3]; 

5; u=fuxy; upe-fu*L*ype; d-.15; 

; xm2[0,0,1,1,0,0]*d; 

;: ym7[0,71,-71,1,1,0]*d; zm=xmti*ym; 

: close; 

; for jj=1:4 


for j-1:nt 
z-exp(i*atan(upe(j)))*zm; 
xx-real(z); yy-imag(z); 
ut=[u(j,:),u(j,nx)tyy]; xt=[x/L, 1+xx] ; 
plot(ut,xt,’-’); axis(p); axis(’square’) ; 
title(’Forced Vibration of a Pile’); 
axis(’off’); drawnow; figure(gcf); 

end 


; end 
: 4 print -deps pileanim 
. fprintf C A11 Done\n’); 
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9.8 Transient Heat Conduction in a One-Dimensional Slab 


Let us analyze the temperature history in a slab which has the left side insulated 
while the right side temperature varies sinusoidally according to Uo sin(QT). The 
initial temperature in the slab is specified to be zero. The pertinent boundary value 
problem is 


oU OU 
OU : 
ax o T) =0 5 U(£,T) = Uo sin(QT), 


U(X,0)=0,0<X <2 


where U, X, T, and a are, respectively, the temperature, position, time, and thermal 
diffusivity. 
The problem can be converted to dimensionless form by letting 


U X ; aT Qe? 
u--——,y-——,i--—-,uw--—. 
Uo ' £C be a 
Then we get 
Ou Ou 
=== .,0 1,t>0 
EYE Bx’ <a<l,t>J, 


D =0, u(1,t) = imag (e/^*) , u(x,0) = 0. 


The solution consists of two parts as u = w + v, where w is a particular solution 
satisfying the differential equation and nonhomogeneous boundary conditions, and 
v is a solution satisfying homogeneous boundary conditions and specified to impose 
the desired zero initial temperature when combined with w. The appropriate form 
for the particular solution is 


w = imag [f (z)e^'] . 


Making w satisfy the heat equation requires 
f"(a) = iwf(x). 


Consequently 
f(x) = cı sin(x) + c2 cos(x) 


where @ = \/—w. The conditions of zero gradient at x = 0 and unit function value 
at x = 1 determine c and c2. We get the particular solution as 


RE 


w= imag | 
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This forced response solution evaluated at t = 0 yields 
cos(¢x) 
cos(ó) |. 


The general solution of the heat equation satisfying zero gradient at x = 0 and zero 
function value at x = 1 is found to be 


w(a,0) = imag | 


oo 
v(z,t)-— 5 an cos(Àsz)e >t 
n=1 


where Àn = 7(2n—1)/2. To make the initial temperature equal zero in the combined 
solution, the coefficients an are chosen to satisfy 


Y an cos(Àn z) = — imag E ; 
n=1 


cos(9) 


The orthogonality of the functions cos(A,,2) implies 


1 
Qn = -2 f imag E cos(A,x)dx 


which can be integrated to give 


(sin(As + )/(An + 9) + sin(An — 6)/(An — 9)) 
cos() 


This completely determines the solution. Taking any finite number of terms in the 
series produces an approximate solution exactly satisfying the differential equation 
and boundary conditions. Exact satisfaction of the zero initial condition would theo- 
retically require an infinite number of series terms. However, the terms in the series 
decrease like O(1/n*) and using a 250-term series produces initial temperature val- 
ues not exceeding 10 9. Thus, the finite series is satisfactory for practical purposes. 

The above equations were evaluated in a function called heat. Function slab- 
heat was also written to plot numerical results. The code and resulting Figures 9.23 
and 9.24 appear below. This example illustrates nicely how well MATLAB handles 
complex arithmetic and complex valued functions. 


an = — imag | 
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Temperature Variation in a Slab 
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Figure 9.22: Temperature Variation in a Slab 


Temperature History at Ends and Middle 
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Figure 9.23: Temperature History at Ends and Middle 
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Heat Conduction Program 


Program slabheat 


; function slabheat 
. ^ Example: slabheat 


. ^ This program computes the temperature 
s 4 variation in a one-dimensional slab with 
« 4 the left end insulated and the right end 
7 ^ given a temperature variation sin(w*t). 
8 


s h User m functions required: heat 


ii [u1,t1,x1]72heat (12,0,2,50,0,1,51,250) ; 

12 Surf(xi,ti,u1); axis([O 1 O 2 -2 2]); 

i title(C Temperature Variation in a Slab’); 

1; Xlabel(?x axis’); ylabel(’time’) ; 

is: Zlabel(’ temperature’); view([45,30]) 

is Colormap(’default’), shg 

iz. disp(’ ’), disp(’Press [Enter] to continue?) 
1s: pause 

: h print -deps tempsurf 


a: [u2, t2,x2] -heat (12,0,2,150,0,1,3,250) ; 


22: Plott Cs 1) 097 Ce £0. 
23: t2,u2(:,3),’-’); 

2: title([’Temperature History at Ends’ 
25: ^ and Middle’]); 


2: Xlabel(’dimensionless time’); 

2: ylabel(?dimensionless temperature’); 
2: texti-?'Left End’; text2=’Middle’ ; 

2: text3=’Right End’; 

30: legend(texti,text2,text3,3); shg 
3: » print -deps templot 

sz: disp? ?), disp’ All Done’); 


s function [u,t,x]= ... 
37: heat(w,tmin,tmax,nt,xmin,xmax,nx,nsum) 


0 


0 
3: 4Lu,t,x]=heat (w, tmin, tmax,nt,xmin, xmax,nx,nsum) 
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4: 4 This function evaluates transient heat 

42 h conduction in a slab which has the left end 
as: ^ (x20) insulated and has the right end (x=1) 
44 h Subjected to a temperature variation 

a: ^ Sin(w*t). The initial temperature of the slab 
4& ^ is zero. 


AT VA 

as: h W - frequency of the right side 

a9: h temperature variation 

5: 4 tmin,tmax - time limits for solution 

si: ^ nt - number of uniformly spaced 

52: h time values used 

5: ^ xmin,xmax - position limits for solution. 
54: h Values should lie between zero 
55: ^ and one. 

56; À NX - number of equidistant x values 
57: ^ nsum - number of terms used in the 

58: ^ series solution 

5: Au - matrix of temperature values. 
60: h Time varies from row to row. 

61: h x varies from column to column. 
62: h t,x - vectors of time and x values 

63: 4, 

64 4 User m functions called: none. 

65: y^ ind tal hee p eU EU TIT TE TXPITSTIRUNW ee tees ae aera ERER 


oz; t=tmint+ (tmax-tmin)/(nt-1)*(0:nt-1); 

6s: X7xmin* (xmax-xmin)/ (nx-1)*(O:nx-1)’; 

o» W-sqrt(-i*w); ln-pi*((1:nsum)-1/2); 

vo: Vi=lnt+W; v2-1n-W; 

1: ac-imag((sin(vi1)./vi*sin(v2)./v2)/cos(W)) ; 
72: u=imag (cos (W*x) *exp (i*w*t)/cos(W))+ 

z:  (CaCones(nx,1),:).*cos(x*ln))* 

ma:  exp(-1n(:).^2*t); 

7; u=u’?; t-t(:); 


ĀE . .  — 

9.9 Transient Heat Conduction in a Circular Cylinder with Spa- 
tially Varying Boundary Temperature 

9.9.1 Problem Formulation 


Transient heat conduction in a circular cylinder can be analyzed using an infinite 
series of Bessel functions. Consider a cylinder having an initial temperature distri- 
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bution uo(r, 0) when the boundary is suddenly given a temperature variation f(@) 
depending on the polar angle but independent of time. The problem is conveniently 
formulated in polar coordinates using dimensionless radius and time variables. The 
differential equation, boundary conditions, and initial conditions are as follows: 


1 1 
Urr + Ur + up = te, 0E T X1, t2 0, 


u(1,0,t) = 2 ee °,0<0<2n, 


n=—Co 


u(r, 6,0) = uo(r,9) , O< r<1,0<0< 2m. 


With the boundary condition expressed as a complex Fourier series, the steady-state 
solution satisfying the differential equation and the boundary conditions is 


u(r, 0) = — fo + 2 real p s) where z = re”. 


n=0 


The total solution is the steady-state solution combined with a transient solution 
w(r,9,t) chosen to satisfy the initial condition and boundary conditions expressed 
as 


w(r, 0,0) = uo(r, 0) — v(r,0) , w(1,0,t) = 0. 


The transient solution is a Fourier-Bessel series involving double subscripted coeffi- 
cients depending on the functions v(r, 0) and uo(r, 0). It is found that 


(r, 0, t) zs » Ja (xr) [Any cos(n0) + Bnp sin(n0)] exp(—A2,t) 
n=0 k=1 


where, for n > 0 and k > 1, we have 


2n 


1 
Ang T d Bay = Crk = on /" (r,0,0)rJ4 (Any r) exp(in0)drd0 
ms 
0 0 


with Ang denoting the "^ positive root of J;,(r). The last formula almost applies for 
n = 0 except that Ao, = Cox/2 and Bo; = 0. The coefficients for n = 0 pertain 
to the radially symmetric case independent of the polar angle. Evaluating this series 
solution involves several steps which are: 1) Expanding the boundary condition in a 
complex Fourier series to obtain the steady-state solution; 2) Determining the zeros 
of the integer order Bessel functions J;,(r); 3) Computing the series coefficients by 
numerical integration; and 4) Summing the series solution for various (r, 0) values 
with enough terms being used in the series to assure adequate satisfaction of the 
initial conditions and boundary conditions. 
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INITIAL TEMPERATURE DISTRIBUTION 
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Figure 9.24: Initial Temperature 


9.9.2 Computer Formulation 


A computer program was written to analyze the time dependent temperature field. 
The program specifies general initial temperature and boundary temperature. The 
series solution is evaluated on a polar coordinate grid and an animation of the tem- 
perature variation from initial to steady state is shown. The program modules in- 
clude: 1) heatcyln which calls the computational modules and plots results; 2) 
besjtabl returns Bessel function roots used in the series solution; 3) tempinit spec- 
ifies the initial temperature field; 4) tempstdy computes the steady state solution; 
5) tempdif computes the difference in the initial and the final temperature fields; 6) 
foubesco evaluates coefficients in the Fourier-Bessel series; and (7) tempsum sums 
the Fourier-Bessel series for a vector of time values. Figures 9.25 through 9.28 show 
the initial, final, and two intermediate temperature states. The program animates the 
temperature history so the transition from initial to steady-state can be visualized. 
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Temperature at time = 0.020 
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Figure 9.25: Temperature at t=0.02 


Temperature at time = 0.050 
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Figure 9.26: Temperature at t=0.05 
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STEADY STATE TEMPERATURE DISTRIBUTION 
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Figure 9.27: Steady State Temperature 
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Program heatcyln 


Be Hoe ee 


: function heatcyln 


^ heatcyln 


^ This program analyzes the time varying temperature 
^ history in a circular cylinder which initially has 
^ a radially symmetric temperature varying para- 

^ bolically. Then a spatially varying but constant 


. ^ boundary temperature distribution is imposed. The 
. ^ total solution is composed of a harmonic steady 

. 4^ state solution plus a transient component given by 
; ^ a Fourier-Bessel series. 

: ^ User functions called: 

s besjtabl, tempinit, tempstdy, foubesco, 

5: h tempsum,  tempdif, gcquad 


: global ubdry besjrt 


; 4 Obtain Bessel function roots needed in the 
; 4 transient solution 
. besjrt-besjtabl(0:20,20); 


. ^ Define the steady state temperature imposed 
2: ^ on the outer boundary for t>0 

5 th=linspace(0,pi,100)’; 

2: ud2 cos (2*th) .*(th<=pi/2)+... 

o. (-3+4/pi*th) .* (th»pi/2&th«3*pi/4); 

2: ud- [ud ; ud (end-1:-1:1)]; 

2: ubdry=[linspace(0,360,199)’ ,ud] ; 

. theta-linspace(0,2*pi,65); 

. r=linspace(0,1,15); 


: ^ Compute and plot the initial and final 
3: ^ temperature fields 

. [uinit,z]=tempinit(theta,r) ; 

3: [usteady ,z]=tempstdy (theta,r) ; 

. umin=min([usteady(:);uinit(:)]); 

. umax=max([usteady(:);uinit(:)]); 

. range=[-1,1,-1,1,umin, umax] ; 

. x=real(z); y-imag(z); 
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. surf(x,y,uinit), colormap(’default’) 

. tàtleC INITIAL TEMPERATURE DISTRIBUTION?) 
. Xlabel(’x axis’), ylabel(’y axis?) 

s Zlabel(’temperature’), axis(range), disp(’ ?) 
. disp(’Press [Enter] to see the steady’) 
. disp(’state temperature distribution’) 
. Shg, pause, disp(’ ?) 

. 4 print -deps tempinit 


si, Surf (x,y,usteady) 
sz: title(’STEADY STATE TEMPERATURE DISTRIBUTION’) 
5: Xlabel(?x axis’), ylabel(’y axis’) 

54 Zlabel(’temperature’), axis(range), shg 
5: ^ print -deps tempstdy 


s h Compute coefficients used in the Fourier- 
ss 4 Bessel series for the transient solution 
s: [c,lam,cptim]-foubesco(Otempdif,20,20,40,128); 


: ^ Set a time interval sufficient to nearly 
. 4^ reach steady state 
. tmax=.4; nt-81; t-linspace(0,tmax,nt); 


s 4 Evaluate the transient solution 
. [u, tsum] -tempsum(c, theta,r,t,lam); 
.u(:,:,1)=uinit-usteady; 


. ^ Plot time history for the total solution 
: While 1 


disp(’Press [Enter] to see the animation’) 


disp(’or enter 0 to stop’), v=input(’> ? ’); 


if isempty(v), v=1; end 

if v^-1, break, end 

for j-1:nt 
utotal-usteady*u(:,:,j); 
surf(x,y,utotal) 
titl-sprintf(['Temperature at time =’, 

"46:t'].t0))« title(titl) 

xlabel(?x axis’), ylabel(’y axis?) 
zlabel(’temperature’), axis(range) ; 
drawnow; shg, pause(.3) 

end 
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. function [u,z]-tempstdy(theta,r) 
: 4 [u,z]=tempstdy(theta,r) 


: ^ Steady state temperature distribution in a 
. ^ circular cylinder of unit radius with 

. 4 piecewise linear boundary values 

s 4 described in global array ubdry. 

: global ubdry 


; thft-2*pi/(1024)*(0:1023); n=100; 
; ufft-interpi(pi/180*ubdry(:,1),... 


ubdry(:,2)/1024,thft); 


. c=fft(ufft); z-exp(i*theta(:))*r(:)/; 
; u=-real(c(1))+2*real(... 


polyval(c(n:-1:1),z)); 


: function [u,z]-tempinit(theta,r) 


: 4 lu,z]=tempinit (theta,r) 


% Initial temperature varying parabolically 
^ with the radius 


; theta-theta(:); r=r(:)’; z-exp(i*theta)*r; 
: u=ones(length(theta) ,1)*(1-r.*2); 


: function [u,z]=tempdif (theta,r) 


: 4 lu,z]=tempdif (theta,r) 


: 4 Difference between the steady state temp- 

. 4 erature and the initial temperature 

. ul=tempstdy(theta,r); [u2,z]-tempinit(theta,r); 
; u=u2-ul; 


: function [c,lam,cptim]=foubesco(... 


2 


f,nord,nrts,nrquad,nft) 
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: 4 [c, lam,cptim]-foubesco(f,nord,nrts,nrquad,nft) 


3a: ^ Fourier-Bessel coefficients computed using the 
&'A FFT 

; global besjrt 

s7: if nargin<5, nft-128; end 

: if nargin<4, nrquad=50; end 

; if nargin<3, nrts=10; end 

; if nargin«2, nord=10; end 

; if nargin--0, f=’fbes’; end 

; tic; lam=besjrt(1:nord,1:nrts) ; 

3: C=zeros(nord,nrts) ; 

: [dummy ,r,w]=gcquad([] ,0,1,nrquad, 1); 

s r=r(:)?; w-w(:)?; th-2*pi/nft*(0:nft-1)'; 
; fmat-fft(feval(f,th,r)); 

: fmat-fmat(1:nord,:).*repmat(r.*w,nord,1); 
: for n-1:nord 


for k-1:nrts 


49 

50 lnk-lam(n,k); 

51: v-sum(fmat(n,:).*besselj(n-1,1nk*r)); 
52 c(n,k)=4*«v/nft/besselj(n,1nk) .*2; 

53: end 

54: end 


ss C(1,:)=c(1,:)/2; cptim-toc; 


s: function [u,tcpu]-tempsum(c,th,r,t,lam) 
: 4 [u,tsum]-tempsum(c,th,r,t,lam) 


. ^ This function sums a Fourier-Bessel series 

4 ^4 for transient temperature history in a circular 
s ^ cylinder with given initial conditions and 

. 4 zero temperature at the boundary. The series 
z: h has the form 

3: 4 u(theta,r,t)=sum({n=0:nord-1) ,k=1:nrts},... 
» 4 besselj(n,lam(n*1,k)*r)*real(... 

: 4 c(nt+1,k)*exp(i*(nt+1)*theta))*... 

: 4 exp(-lam(n*1,k)^2*t), where 

: 4 besselj(n-1,1am(n,k))-0 and 

: 4. [nord,nrts]2size(c) 


hc - the series coefficients for the initial 
my temperature distribution obtained using 
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E 


mA function foubesco 


(4 th - vector or theta values between 

p zero and 2*pi 

hee - vector of radius values between 

wk zero and one 

: 4 lam - matrix of bessel function roots. 

de If this argument is omitted, then 
(4 function besjroot is called to 

A compute the roots 

shu - a three-dimensional array of function 
c values where u(i,j,k) contains the 
a temperature for theta(i), r(j), t(k) 


. 4 tcpu - computation time in seconds 


. tic; [nord,nrts]-size(c); 

. if nargin<5, lam-besjroot(0:nord-1,nrts); end 

; th=th(:); nth-length(th); r=r(:)’; nr-length(r); 
; nt-length(t); N-repmat((0:nord-1)?,1,nrts); 

; NZNC:)?; c=c(:).?; lam=lam(:); lam2=-(lam.*2)’; 
; u-zeros(nth,nr,nt); thmat=exp(i*th*N) ; 

: besmat-besselj(repmat(N?,1,nr),lam*r); 

: for I-21:nt 


C-c.*exp(lam2*t(1)); 
u(:,:,I)-real(thmat.*repmat(C,nth,1))*besmat; 


; end 


:. 4 This function returns a table for roots of 
; 4 besselj(n,x)=0 accurate to about five digits. 
: 4 r(k,:) - contains the first 20 positive roots of 


3: h besselj(k-1,x)=0; for k=1:21 

. 4 nordr - a vector of function orders lying 

5 ^ between O and 20 

; ^ nrts  - the highest root order not to exceed 
A the twentieth positive root 


; if nargin==0, nordr-0:20; nrts-20; end 
. if max(nordr)>20 | nrts>20, r=nan; return; end 
. r-[2.4048 21.6415 40.7729 33.7758 53.7383 73.2731 
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3.8317 22.9452 
5.1356 24.2339 
6.3801 25.5094 
7.5883 26.7733 
8.7715 28.0267 
9.9362 29.2706 
11.0864 30.5060 
12.2251 31.7334 
13.3543 32.9537 
14.4755 34.1672 
15.5898 35.3747 
16.6983 36.5764 
17.8014 37.7729 
18.9000 14.9309 
19.9944 16.4707 
21.0852 17.9599 
22.1725 19.4094 
23.2568 20.8269 
24.3383 22.2178 
25.4171 23.5861 
5.5201 24.9350 
7.0156 26.2668 
8.4173 27.5839 
9.7611 28.8874 
11.0647 30.1790 
12.3385 31.4600 
13.5893 32.7310 
14.8213 33.9932 
16.0378 35.2471 
17.2412 36.4934 
18.4335 37.7327 
19.6160 38.9654 
20.7899 40.1921 
21.9563 41.4131 
23.1158 18.0711 
24.2692 19.6159 
25.4170 21.1170 
26.5598 22.5828 
27.6979 24.0190 
28.8317 25.4303 
29.9616 26.8202 
8.6537 28.1912 
10.1735 29.5456 
11.6199 30.8854 
13.0152 32.2119 
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.0679 
.3551 
.6349 
.9076 
.1740 
.4345 
. 3525 
.9037 
.4206 
.9084 
.3710 
.8117 
.2330 
.6371 
. 0257 
.4001 
. 7618 
.1118 
.4511 
. 7804 
. 1006 
.4122 
.7158 
.0122 
.3012 
.5836 
.8600 
.4935 
. 0469 
.5692 
.0649 
.5372 
.9887 
.4220 
.8387 
.2405 
.6286 
.0041 
.3684 
. 7220 
.0655 
. 4003 
.7265 
.0446 
. 3552 


.6738 
. 0673 
.4536 
. 8337 
.2071 
.5752 
. 7655 
.3275 
.8730 
.4033 
.9193 
.4221 
.9128 
.3913 
.8594 
.3172 
. 7653 
. 2044 
. 6347 
.0567 
.4710 
.8779 
.2716 
.6706 
. 0570 
.4373 
.8116 
.9070 
.4695 
.0162 
.5484 
.0671 
.5730 
.0665 
.5496 
.0219 
.4843 
.9369 
.3814 
.8170 
.2440 
.6643 
.0769 
.4825 
.8815 


267: 14.3726 33.5265 52.6589 46.1679 65.8399 85.2738 
268: 15.7002 34.8300 53.9559 47.6493 67.2577 86.6603 
269: 17.0037 36.1237 55.2466 49.1157 68.6681 88.0408 
270: 18.2876 37.4081 30.6346 50.5681 70.0699 62.0485 
271: 19.5546 38.6843 32.1897 52.0077 71.4639 63.6114 
272: 20.8070 39.9526 33.7166 53.4352 72.8506 65.1593 
273: 22.0470 41.2135 35.2187 54.8517 74.2302 66.6933 
274: 23.2758 42.4678 36.6990 56.2576 75.6032 68.2142 
275: 24.4949 43.7155 38.1598 57.6538 76.9699 69.7230 
276: 25.7051 44.9577 39.6032 59.0409 78.3305 71.2205 
277: 26.9074 21.2117 41.0308 60.4194 52.6241 72.7065 
278: 28.1024 22.7601 42.4439 61.7893 54.1856 74.1827 
279: 29.2909 24.2702 43.8439 63.1524 55.7297 75.6493 
280: 30.4733 25.7482 45.2315 64.5084 57.2577 77.1067 
281: 31.6501 27.1990 46.6081 65.8564 58.7709 78.5555 
282: 32.8218 28.6266 47.9743 67.1982 60.2703 79.9960 
283: 33.9887 30.0337 49.3308 68.5339 61.7567 81.4291 
284: 11.7916 31.4228 50.6782 43.1998 63.2313 82.8535 
285: 13.3237 32.7958 52.0172 44.7593 64.6947 84.2714 
286: 14.7960 34.1543 53.3483 46.2980 66.1476 85.6825 
287: 16.2234 35.4999 54.6719 47.8178 67.5905 87.0870 
288: 17.6159 36.8336 55.9885 49.3204 69.0240 88.4846 
289: 18.9801 38.1563 57.2984 50.8072 70.4486 89.8772 
290: 20.3208 39.4692 58.6020 52.2794 71.8648 91.2635]; 
21: r=reshape(r(:),21,20); r=r(1tnordr,1:nrts) ; 


25: 4 function [val,bp,wf]=gcquad(func,xlow,... 
296: h xhigh,nquad,mparts,varargin) 
207: 4 See Appendix B 
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9.10 Torsional Stresses in a Beam of Rectangular Cross Section 


Elastic beams of uniform cross section are commonly used structural members. 
Evaluation of the stresses caused when beams undergo torsional moments depends 
on finding a particular type of complex valued function. This function is analytic 
inside the beam cross section and has its imaginary part known on the boundary 
[72]. The shear stresses Tx z and Ty z are obtained from the stress function f(z) of 
the complex variable z — x 4- iy according to 


TZX —ITZY 
ua 


= f'(z)— iz 
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where u is the shear modulus and o is the twist per unit length. In the case for a 
simply connected cross section, such as a rectangle or a semicircle, the necessary 
boundary condition is 


imag[/(:)] = 5122 


at all boundary points. It can also be shown that the torsional moment causes the 
beam cross section to warp. The warped shape is given by the real part of f(z). 

The geometry we will analyze is rectangular. As long as the ratio of side length 
remains fairly close to unity, f(z) can be well approximated by 


where c1, ... , Cn are real coefficients computed to satisfy the boundary conditions in 
the least square sense. The parameter s is used for scaling to prevent occurrence of 
large numbers when n becomes large. We take a rectangle with sides parallel to the 
coordinate axes and assume side lengths of 2a and 26 for the horizontal and vertical 
directions, respectively. The scaling parameter will be chosen as the larger of a and 
b. The boundary conditions state that for any point z, on the boundary we should 


have 
n ; 1 
e, real ys? = =|z,|?. 
oe E 2 


Once the series coefficients are found, then shear stresses are computed as 


Util ET + 2is | PE — 1)c; (=) s 

ua Tum E 

A program was written to compute stresses in a rectangular beam and to show graph- 
ically the cross section warping and the dimensionless stress values. The program is 
short and the necessary calculations are almost self explanatory. It is worthwhile to 
observe, however, the ease with which MATLAB handles complex functions. Note 
how intrinsic function linspace is used to generate boundary data and meshgrid is 
used to generate a grid of complex values (see lines 50, 51, 72, 73, and 74 of function 
recstrs). The sample problem employs a rectangle of dimension 2 units by 4 units. 
The maximum stress occurs at the middle of the longest side. Figures 9.28 through 
9.31 plot the results of this analysis. 
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Figure 9.28: Warping of the Cross Section 


Total Shear Stress Surface 
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Figure 9.29: Total Shear Stress Surface 
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Figure 9.31: Stress for y = 5/2 
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MATLAB Example 
Output from Torsion Example 


>> rector; 


=== TORSIONAL STRESS CALCULATION IN A RECTANGULAR === 
=== BEAM USING LEAST SQUARE APPROXIMATION === 


T 


Input the lengths of the horizontal and the vertical sides 
(make the long side horizontal) 
> ? 3,2 


Input the number of terms used in the stress function 
(30 terms is usually enough) 
> ? 30 


Press [Enter] to plot 
the warping surface 


Ej 


Press [[Enter]] to plot the 
total stress surface 


Press [Enter] to plot the 
Stress contours 


Press [Enter] to plot the maximum 
Stress on a rectangle side 


The Maximum Shear Stress is 1.6951 
at x = 0 and y = 1 


All Done 
>> 


Program rector 


1: function rector 
2 ^ Example: rector 


4 ^ This program uses point matching to obtain an 
approximate solution for torsional stresses 
; ^ in a Saint Venant beam having a rectangular 
. 4 cross section. The complex stress function is 


do wc 
2223 
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. ^ analytic inside the rectangle and has its 

. ^ real part equal to abs(z*z)/2 on the 

. ^ boundary. The problem is solved approximately 
. ^ using a polynomial stress function which fits 
. ^ the boundary condition in the least square 

» 4 sense. Surfaces and contour curves describing 
. ^ the stress and deformation pattern in the 

s 4 beam cross section are drawn. 


: ^ User m functions required: recstrs 


: clear; 

2: fprintf(’\n=== TORSIONAL STRESS CALCULATION’); 
. fprintf(’ IN A RECTANGULAR ===’); 
. fprintf (? \n=== BEAM USING LEAST SQUARE ’); 
. fprintf C APPROXIMATION ===\n’); 


. fprintf(’\nInput the lengths of the ’); 

s fprintf(’horizontal and the vertical sides\n’); 
2: fprintf(’ (make the long side horizontal)\n’); 

ə: u=input(’> ? ’,’s’); u=eval([’[’,u,’]’]); 

2: a=u(1)/2; b=u(2)/2; 


. ^ The boundary conditions are approximated in 
. ^ terms of the number of least square points 
. ^ used along the sides 

. nsegb-100; nsega-ceil(a/b*nsegb); 

34 nsega-fix(nsega/2); nsegb-fix(nsegb/2); 

s fprintf(’\nInput the number of terms ’); 

. fprintf('used in the stress function’); 

37: fprintf(’\n(30 terms is usually enough) Wn?); 
ss ntrms=input(’> ? ?); 

. ^ Define a grid for evaluation of stresses. 

. ^ Include the middle of each side. 

. nx-41; ny-fix(b/a*nx); ny-ny*i-rem(ny,2); 


: [c,phi,stres,z] = ... 


recstrs(a,nsega,b,nsegb,ntrms,nx,ny); 


. [smax, k] max (abs(stres(:))); zmax=z(:); 
; zmax-zmax(k); xmax-abs(real(zmax)); 
. ymax-abs (imag (zmax) ) ; 


a: disp(’ °), disp(['The Maximum Shear ’,... 
50: ’ Stress is ’,num2str(smax)]); 
si disp([^at x = ’,num2str(xmax),’ and y = ’,... 


num2str(ymax)]); 
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z: function [c,phi,stres,z]-... 
8: recstrs(a,nsega,b,nsegb,ntrms,nxout,nyout) 


€x 4 [c,phi,stres,z]-... 
o ^ | recstrs(a,nsega,b,nsegb,ntrms,nxout,nyout) 


os ^ This function uses least square fitting to 
c4 ^ Obtain an approximate solution for torsional 
o» À Stresses in a Saint Venant beam having a 

os ^ rectangular cross section. The complex stress 
o ^ function is analytic inside the rectangle 

os ^ and has its real part equal to abs(z*z)/2 on 
o» ^ the boundary. The problem is solved 

x: 4 approximately using a polynomial stress 

1: ^ function which fits the boundary condition 
72: ^ in the least square sense. The beam is 2*a 
73: ^ wide parallel to the x axis and 2*b deep 
7: ^ parallel to the y axis. The shear stresses 
7; ^ in the beam are given by the stress formula: 


7: h (tauzx-i*tauzy)/(mu*alpha) = -ixconj(z)+f’ (z) 
7: ^ where 
a 4  f(z)i*sum( c(j)*z^(2*j-2), jei:ntrms ) 


s» ^ and c(j) are real. 


sa: h 

as: 4 a,b - half the side lengths of the 

86: % horizontal and vertical sides 
s: * nsega, - numbers of subintervals used to 
ss ^ nsegb form the least square equations 
s: ^ ntrms | - number of terms used in the 

90: % polynomial stress function 

oi, 4 nxout, - number of grid points used to 
92: ^ nyout evaluate output 

os A C - coefficients defining the stress 
oa: h function 

ə: ^ phi - values of the membrane function 
o; 4 stres | - array of complex stress values 
or: h Z - complex point array at which 
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AU stresses are found 

ode 

; 4 User m functions called: none 
0 


; ^ Generate vector zbdry of boundary points 
. 4 for point matching. 
s zbdry-[a*i*b/nsega*(0:nsega-1)'; 


ixbta/nsegb* (nsegb:-1:0)?]; 


: 4 Determine a scaling parameter used to 

; 4 prevent occurrence of large numbers when 
. 4 high powers of z are used 

: s-max (a,b); 


. 4 Form the least square equations to impose 
. 4 the boundary conditions. 
: neq-length(zbdry); amat-ones(neq,ntrms); 


; ztmp- (zbdry/s).^2; bvec-.5*abs(zbdry).^2; 

: for j-2:ntrms 
amat(:,j)-amat(:,j-1).*ztmp; 

; end 


; ^ Solve the least square equations. 
. amat-real(amat); c-pinv(amat)*bvec; 


; ^ Generate grid points to evaluate 
s ^4 the solution. 

. xsid-linspace(-a,a,nxout); 

: ysid=linspace(-b,b,nyout) ; 

: [xg, yg] =meshgrid(xsid,ysid) ; 

. zexgti*yg; zz-(z/s).^2; 


. 4 Evaluate the warping function 
; phi--imag(polyval(flipud(c),zz)); 


3: ^ Evaluate stresses and plot results 
; cc=(2*(1:ntrms)-2)’.*c; 
36: Stres--i*conj(z)*i* 


polyval(flipud(cc),zz)./(z*eps*(z--0)) ; 


ss am=num2str (-a) ;ap=num2str (a) ; 
: bm=num2str(-b) ;bp=num2str (b) ; 


; ^ Plot results 
: disp? 7), disp(C? Press [Enter] to plot?) 
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3 disp( the warping surface’), pause 

: [pa,k]=max(abs(phi(:))); 

s Phi=a/4*sign (phi (k) )/phi(k) *phi; 

; close, colormap(’default’ ) 

. surfc(xg,yg,Phi) 

; title(’Warping of the Cross Section’) 
: Xlabel(’x axis’), ylabel(’y axis?) 

s: ZLabel(’transverse warping’); axis(’equal’) 
si shg, disp? ’) 

sx disp(’Press [[Enter]] to plot the’) 
ss: disp(?total stress surface’), pause 
54 ^ print -deps warpsurf 


s: Surfc(xg,yg,abs(stres)); 

s; title(’Total Shear Stress Surface’) 

ss XLabel(’x axis’); ylabel(’y axis’) 

s: ZLabel(’total stress’), axis(’equal’), shg 

: disp(’ 7), disp(’Press [Enter] to plot the?) 
. disp(’stress contours’), pause 

» ^4 print -deps rectorst 


4 contour(xg,yg,abs(stres),20); colorbar 

s title(’Total Stress Contours’); 

6: Xlabel(’x axis’); ylabel(’y axis?) 

. shg, disp? ?) 

. disp(’Press [Enter] to plot the maximum’) 
» disp(’stress on a rectangle side’), pause 
: 4 print -deps torcontu 


: plot (xsid,abs(stres(1,:)),’k’); 

» grid; ylabel(’tangential stress’); 

: xlabel(’position on a horizontal side’); 
; title(’Stress for y = b/2’); shg 

» ^ print -deps torstsid 
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Chapter 10 


Eigenvalue Problems and Applications 


10.1 Introduction 


Eigenvalue problems occur often in mechanics, especially linear system dynam- 
ics, and elastic stability. Usually nontrivial solutions are sought for homogeneous 
systems of differential equations. For a few simple systems like the elastic string, 
or a rectangular membrane, the eigenvalues and eigenfunctions can be determined 
exactly. More often, some discretization methods such as finite difference or finite 
element methods are employed to reduce the system to a linear algebraic form which 
is numerically solvable. Several eigenvalue problems analyzed in earlier chapters 
reduced easily to algebraic form where the function eig could immediately produce 
the desired results. The present chapter deals with several instances where reduction 
to eigenvalue problems is more involved. We will also make some comparisons of 
exact, finite difference, and finite element analyses. Among the physical systems 
studied are Euler beams and columns, two-dimensional trusses, and elliptical mem- 
branes. 
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10.2 Approximation Accuracy in a Simple Eigenvalue Problem 


One of the simplest but useful eigenvalue problems concerns determining nontriv- 
ial solutions of 


y" (x) + Xy) = 0, y(0) = y) = 0. 
The eigenvalues and eigenfunctions are 


Yn = sin(nzz), O< x € 1, where An = nz, n = 1,2,3,... 


It is instructive to examine the answers obtained for this problem using finite differ- 
ences and spline approximations. We introduce a set of node points defined by 


a; =jA, j =0,1,2,...,N+1, A 2 A/(N 9 1). 


© 2003 by CRC Press LLC 


Then a finite difference description for the differential equation and boundary condi- 
tions is 


yj—1 — 2y; + Vjui c o?7yj 20, 1X <N, yo = yny 7 0, w = AA. 


Solving the linear difference equation gives 


d ! Tn 
=2(N+1)s ——- =1,...,N. 
x= 20 esa (ser) noises, 


yi = sin (5). n=1,..., N, j=0,...,N+1 


where the superscript d indicates a finite difference result. The ratio of the approxi- 
mate eigenvalues to the exact eigenvalues is 


Aa / An = sin (a) (aw) | 


So, for large enough M, we get A2/ A; = 1 and A / Ay = 2 z 0.63. The 
smallest eigenvalue is quite accurate, but the largest eigenvalue is too low by about 
thirty-seven percent. This implies that the finite difference method is not very good 
for computing high order eigenvalues. For instance, to get À fyo / A100 = 0.999 
requires a rather high value of N = 2027. 

An alternate approach to the finite difference method is to use a series representa- 
tion 


= 
© 
II 
Mz 
> 
nm, 
S 
Ie] 
Ew 


k=1 


where the f(x) vanish at the end points. We then seek a least-squares approximate 
solution imposing 


N N 
NO AGatY> A(5)e 50 

k=1 k=1 
for a set of collocation points €;, 7 = 1... M with M taken much larger than N. 
With the matrix form of the last equation denoted as B C + A? A C = 0, we make the 
error orthogonal to the columns of matrix A and get the resulting eigenvalue problem 


(A\B)C+C=0 
employing the generalized inverse of A. A short program eigverr written to compare 
the accuracy of the finite difference and the spline algorithms produced Figure 10.1. 


The program is also listed. The spline approximation method gives quite accurate 
results, particularly if no more than half of the computed eigenvalues are used. 
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COMPARING TWO METHODS FOR EIGENVALUES OF Y"(X)4WF*Y(X)=0, Y(0)=Y(1)=0 
10 T T T T T T T T T 


Percent Error 
I 
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T 
į 


-20 F - 
-25r +] 
-30- 4 
-35 4 
—— Using 100 cubic splines and 504 least square points 
Using 100 finite differences points 
-40 I I I I I i i L L 
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Eigenvalue Index 


Figure 10.1: Comparing an eigenvalue computation using the least squares 
method and a second order finite differences method 
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Program eigverr 


Ro CQ MEN 2m ORAE dae 


. function eigverr(nfd,nspl,kseg) 


^ eigverr (nfd,nspl,kseg) 
% This function compares two methods of computing 
^ eigenvalues corresponding to 


% y" GO*w^2*y G0-0, y(0)=y(1)=0. 


^ Results are obtained using 1) finite differences 


. ^ and 2) cubic splines. 


u: 4 nfd - number of interior points used for the 
12: % finite difference equations 

i 4 nspl - number of interior points used for the 
1: h spline functions. 

i: 4 kseg - the number of interior spline points is 
16: h kseg* (nspl+1)+nspl 


; if nargin==0, nfd=100; nspl-100; kseg=4; end 
. [ws,es]=spleig(nspl,kseg); [wd,ed]=findieig(nfd) ; 
. Str-['COMPARING TWO METHODS FOR EIGENVALUES ’,... 


"OF Y"(X)+W*2*Y(X)=0, YCO)=¥(1)=07]; 


: plot(1:nspl,es,’k-’,1:nfd,ed,’k.’) 

. title(str), xlabel(’Eigenvalue Index’) 

2: ylLlabel(’Percent Error’), Nfd-num2str(nfd); 

s Ns-num2str(nspl); M-num2str(nspl-*(nspl-*1)*kseg); 
2; legend([ Using ’,Ns,’ cubic splines and ’,... 


M,’ least square points’],... 
['Using ’,Nfd,’ finite differences points’] ,3) 


2: grid on, shg 
. ^ print -deps eigverr 


3a: function [w,pcterr]-findieig(n) 

s 4 [w,pcterr]-findieig(n) 

3: ^ This function determines eigenvalues of 
ar. Ý y?! (x) tw 2*y(x)=0, y(0)=y(1)=0 

3: ^ The solution uses an n point finite 

. 4 difference approximation 

; if nargin--0, n-100; end 

. a-2*eye(n,n)-diag(ones(n-1,1),1)... 
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-diag(ones(n-1,1),-1); 


. w=(n+1)*sqrt(sort(eig(a))); we=pi*(1:n)’; 
; pcterr=100* (w-we)./we; 


. function [w,pcterr]=spleig(n,nseg) 

: 4 [w,pcterr]-spleig(n,nseg) 

5: ^ This function determines eigenvalues of 

s 4 y QG0*w^2xyG0-20, y(0)=y(1)=0 

5: ^ The solution uses n spline basis functions 
5: ^ and nseg*(n+1)+n least square points 


5 if nargin--0, n-100; nseg-1; end 

s: nls=(n+1)*nsegtn; xls=(1:nls)’/(n1s+1) ; 
s; a=zeros(nls,n); b=a; 

ss for k-1:n 


a(:,k)-splnf(k,n,1,x1s,2); 
b(: ,k)=splnf(k,n,1,x1s); 


; end 
. W=sqrt(sort(eig(-b\a))); we=pi*(1:n)’; 
; pcterr=100* (w-we) ./we; 


. function y-splnf(n,N,len,x,ideriv) 

: 4 y=splnf(n,N,len,x,ideriv) 

. ^ This function computes the spline basis 
; % functions and derivatives 

. xd=len/(N+1)*(0:N+1)’; yd=zeros(N+2,1); 

: yd(n+1)=1; 

. if nargin<5, y=spline(xd,yd,x); 

. elseif ideriv--1, y-splined(xd,yd,x); 

. else, y-splined(xd,yd,x,2); end 


. ^ function val-splined(xd,yd,x,if2) 
: ^ See Appendix B 
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E: SeSe 


10.3 Stress Transformation and Principal Coordinates 


The state of stress at a point in a three-dimensional continuum is described in terms 
of a symmetric 3 x 3 matrix t = [t(2, 7)] where t(1, 7) denotes the stress component in 
the direction of the x, axis on the plane with it normal in the direction of the x , axis 
[9]. Suppose we introduce a rotation of axes defined by matrix b such that row b(:, :) 
represents the components of a unit vector along the new Z, axis measured relative 
to the initial reference state. It can be shown that the stress matrix ¢ corresponding 
to the new axis system can be computed by the transformation 


t= btb". 


Sometimes it is desirable to locate a set of reference axes such that ¢ is diagonal, 
in which case the diagonal components of ¢ represent the extremal values of normal 
stress. This means that seeking maximum or minimum normal stress on a plane leads 
to the same condition as requiring zero shear stress on the plane. The eigenfunction 
operation 


[eigvecs, eigvals]=\beig(t) ; 


applied to a symmetric matrix t produces an orthonormal set of eigenvectors stored in 
the columns of eigvecs, and a diagonal matrix eigvals having the eigenvalues 
on the diagonal. These matrices satisfy 


eigv cs? t igvecs — eigvals. 


Consequently, the rotation matrix b needed to transform to principal axes is simply 
the transpose of the matrix of orthonormalized eigenvectors. In other words, the 
eigenvectors of the stress tensor give the unit normals to the planes on which the 
normal stresses are extremal and the shear stresses are zero. The function prnstres 
performs the principal axis transformation. 


10.3.1 Principal Stress Program 


Function prnstres 


x function [pstres,pvecs]-prnstres(stress) 
z ^ L[pstres,pvecs]-prnstres(stress) 
/ 


5 ^ This function computes principal stresses 
« 4 and principal stress directions for a three- 
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7z 4 dimensional stress state. 


0 
s: h 
s 4 stress - a vector defining the stress 
10; % components in the order 

y, [sxx, Syy,SZZ,Sxy,Sxz,syz] 


^ pstres - the principal stresses arranged in 
ascending order 


Noa PR p vc 
= 


^ pvecs - the transformation matrix defining 
% the orientation of the principal 
Eh axis system. The rows of this 
is: h matrix define the surface normals to 
19: % the planes on which the extremal 
2: % normal stresses act 
2: h% 


2; 4 User m functions called: none 


21 S=stress(:)’; 

x S7 ([sC[1 4 51); sC[4 2 6D; s([5 6 3])]); 

2: [pvecs, pstres]-eig(s); 

2: [pstres,k]=sort (diag(pstres)); 

zs pvecs=pvecs(: ,k)’; 

2: if det(pvecs)«0, pvecs(3,:)--pvecs(3,:); end 


10.3.2 Principal Axes of the Inertia Tensor 


A rigid body dynamics application quite similar to principal stress analysis occurs 
in the kinetic energy computation for a rigid body rotating with angular velocity 
w = |ws; wy; wz] about the reference origin [48]. The kinetic energy, K, of the 
body can be obtained using the formula 


1 
K = xe Jw 


with the inertia tensor J computed as 


J= fff oltrte— re" ay, 


where p is the mass per unit volume, J is the identity matrix, and r is the Cartesian 
radius vector. The inertia tensor is characterized by a symmetric matrix expressed in 
component form as 


y? +2? —xry XZ 
J= ni -zy x42? —yz dxdydz. 
Vt -az  —yz r? +y? 
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Under the rotation transformation 
f—br with — bTb— I, 
we can see that the inertia tensor transforms as 
J = bJbT 


which is identical to the transformation law for the stress component matrix dis- 
cussed earlier. Consequently, the inertia tensor will also possess principal axes which 
make the off-diagonal components zero. The kinetic energy is expressed more sim- 
ply as 


1 
K = 3 (wi Ju + w Joo + w3 J33) 


where the components of w and J must be referred to the principal axes. The function 
prnstres can also be used to locate principal axes of the inertia tensor since the same 
transformations apply. As an example of principal axis computation, consider the 
inertia tensor for a cube of side length A and mass M which has a corner at (0, 0, 0) 
and edges along the coordinate axes. The inertia tensor is found to be 


2/3 —1/4 —1/4 
J= | —1/4 2/3 -1/4| MA?. 
—1/4 —1/4 2/3 


The computation 


[pvl,pvc]=prnstres ([2/3,2/3,2/3,-1/4,-1/4,-1/4]); 


produces the results 


0.1667 0.5574 —0.5574 —0.5574 
pvl = | 0.9167) , pvc = | —0.1543 0.7715 —0.6172 
0.9167 0.8018 —0.2673 —0.5345 


This shows that the smallest possible inertial component equals 1 /6(~ 0.1667) about 
the diagonal line through the origin while the maximal inertial moments of 11/12(~ 
0.9167) occur about the axes normal to the diagonal. 


E: S 


10.4 Vibration of Truss Structures 


Trusses are a familiar type of structure used in diverse applications such as bridges, 
roof supports, and power transmission towers. These structures can be envisioned as 
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a series of nodal points among which various axially loaded members are connected. 
These members are assumed to act like linearly elastic springs supporting tension 
or compression. Typically, displacement constraints apply at one or more points to 
prevent movement of the truss from its supports. The natural frequencies and mode 
shapes of two-dimensional trusses are computed when the member properties are 
known and the loads of interest arise from inertial forces occurring during vibration. 
A similar analysis pertaining to statically loaded trusses has been published recently 
[102]. 

Consider an axially loaded member of constant cross section connected between 
nodes : and 7 which have displacement components (u,, v,) and (u;, v,) as indicated 
in Figure 10.2. The member length is given by 


f= (x, = 2)? + (y; =A) 


and the member inclination is quantified by the trigonometric functions 


2,—2 . — 
Z and s= sin = $55 


nn E 7 


The axial extension for small deflections is 
A = (u; — n )c + (v — v )s. 


The axial force needed to extend a member having length £, elastic modulus Æ, and 
cross section area A is given by 


where 
Uy = [urs Urs Uy; vj] 


is a column matrix describing the nodal displacements of the member ends. The 
corresponding end forces are represented by 


Fy = [Pixs Fu; Fa Fy] =P, [-c, —8, C, s], 
so that the end forces and end displacements are related by the matrix equation 
Ey = Ky Uy, 


where the element stiffness matrix is 


AE 
Pe esca] poe —s5, c s]. 


K,-7 


In regard to mass effects in a member, we will assume that any transverse motion is 
negligible and half of the mass of each member can be lumped at each end. Hence 
the mass placed at each end would be Ap//2 where p is the mass per unit volume. 
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Figure 10.2: Typical Truss Element 


The deflection of a truss with n nodal points can be represented using a generalized 
displacement vector and a generalized nodal force vector: 


U = [ui; v1; U2; V2; ...; Un; Un] , F = [Pies Fiy; Foz; Foy; ---; Fna; Fay. 


When the contributions of all members in the network are assembled together, a 
global matrix relation results in the form 


F = KU 


where K is called the global stiffness matrix. Before we formulate procedures for 
assembling the global stiffness matrix, dynamical aspects of the problem will be 
discussed. 

In the current application, the applied nodal forces are attributable to the accelera- 
tion of masses located at the nodes and to support reactions at points where displace- 
ment constraints occur. The mass concentrated at each node will equal half the sum 
of the masses of all members connected to the node. According to D'Alembert's 
principle [48] a particle having mass m and acceleration à is statically equivalent 
to a force —mu. So, the equation of motion for the truss, without accounting for 
support reactions, is 

KU = -MÜ 


where M is a global mass matrix given by 
M = diag ([mi; m1; M2; mo; ...; Mn; m4] 


with m, denoting the mass concentrated at the 2’th node. The equation of motion 
MU + KU = 0 will also be subjected to constraint equations arising when some 
points are fixed or have roller supports. This type of support implies a matrix equa- 
tion of the form CU = 0. 
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Natural frequency analysis investigates states-of-motion where each node of the 
structure simultaneously moves with simple harmonic motion of the same frequency. 
This means solutions are sought of the form 


U = X cos(wt) 


where w denotes a natural frequency and X is a modal vector describing the deflec- 
tion pattern for the corresponding frequency. The assumed mode of motion implies 
U = —AU where A = w?. We are led to an eigenvalue problem of the form 


KX =AMX 


with a side constraint CX = 0 needed to satisfy support conditions. 
MATLAB provides the intrinsic functions eig and null which deal with the solu- 
tion to this problem effectively. Using function null we can write 


X=QY 


where Q has columns that are an orthonormal basis for the null space of matrix C. 
Expressing the eigenvalue equation in terms of Y and multiplying both sides by Q T 
gives 

KY = AM;Y 


where 
K, = QT KQ and M, = QT MQ. 


It can be shown from physical considerations that, in general, K and M are symmet- 
ric matrices such that K has real non-negative eigenvalues and M has real positive 
eigenvalues. This implies that Mo can be factored as 


M, = N?N 


where NV is an upper triangular matrix. Then the eigenvalue problem can be rewritten 
as 
KıZ=AZ, Y = NZ, Kı = (NT) K,N-.. 


Because matrix Kı will be real and symmetric, the intrinsic function eig generates 
orthonormal eigenvectors. The function eigsym used by program trusvibs produces 
a set of eigenvectors in the columns of X which satisfy generalized orthogonality 
conditions of the form 


XTMX = I and XT KX =A, 


where A is a diagonal matrix containing the squares of the natural frequencies ar- 
ranged in ascending order. The calculations performed in function eigsym illustrate 
the excellent matrix manipulative features that MATLAB embodies. 

Before we discuss a physical example, the problem of assembling the global stiff- 
ness matrix will be addressed. It is helpful to think of all nodal displacements as if 
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they were known and then compute the nodal forces by adding the stiffness contri- 
butions of all elements. Although the total force at each node results only from the 
forces in members touching the node, it is better to accumulate force contributions 
on an element-by-element basis instead of working node by node. For example, a 
member connecting node : and node 7 will involve displacement components at row 
positions 22 — 1,22, 2; — 1, and 27 in the global displacement vector and force com- 
ponents at similar positions in the generalized force matrix. Because principles of 
superposition apply, the stiffness contributions of individual members can be added, 
one member at a time, into the global stiffness matrix. This process is implemented 
in function assemble which also forms the mass matrix. First, selected points con- 
strained to have zero displacement components are specified. Next the global stiff- 
ness and mass matrices are formed. This is followed by an eigenvalue analysis which 
yields the natural frequencies and the modal vectors. Finally the motion associated 
with each vibration mode is described by superimposing on the coordinates of each 
nodal point a multiple of the corresponding modal vector varying sinusoidally with 
time. Redrawing the structure produces an appearance of animated motion. 

The complete program has several functions which should be studied individually 
for complete understanding of the methods developed. These functions and their 
purposes are summarized in the following table. 


trusvibs | reads data and guides interactive input to ani- 
mate the various vibration modes 

crossdat | function typifying the nodal and element data 
to define a problem 

assemble | assembles the global stiffness and mass data 
matrices 

elmstf forms the stiffness matrix and calculates the 


volume of an individual member 
eigc forms the constraint equations implied when 


selected displacement components are set to 
zero 

eigsym solves the constrained eigenvalue problem 
pertaining to the global stiffness and mass 
matrices 

trifacsm | factors a positive definite matrix into upper 
and lower global triangular parts 

drawtrus | draws the truss in deflected positions 

cubrange | a utility routine to determine a window for 
drawing the truss without scale distortion 


The data in function crossdat contains the information for node points, element 
data, and constraint conditions needed to define a problem. Once the data values are 
read, mode shapes and frequencies are computed and the user is allowed to observe 
the animation of modes ordered from the lowest to the highest frequency. The num- 
ber of modes produced equals twice the number of nodal points minus the number 
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of constraint conditions. The plot in Figure 10.3 shows mode eleven for the sample 
problem. This mode has no special significance aside from the interesting deflection 
pattern produced. The reader may find it instructive to run the program and select 
several modes by using input such as 3:5 or a single mode by specifying a single 
mode number. 


Figure 10.3: Truss Vibration Mode Number 11 
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10.4.1 Truss Vibration Program 


Program trusvibs 


25: 


. disp([?Modal Vibrations for a Pin ’, 


40 


Q9 ARIE OU. oe COUN Us 


; function trusvibs 


Example: trusvibs 


This program analyzes natural vibration modes 
for a general plane pin-connected truss. The 
direct stiffness method is employed in 
conjunction with eigenvalue calculation to 
evaluate the natural frequencies and mode 
shapes. The truss is defined in terms of a 
set of nodal coordinates and truss members 
connected to different nodal points. Global 
stiffness and mass matrices are formed. Then 
the frequencies and mode shapes are computed 
with provision for imposing zero deflection 
at selected nodes. The user is then allowed 
to observe animated motion of the various 
vibration modes. 


User m functions called: 
eigsym, crossdat, drawtrus, eigc, 
assemble, elmstf, cubrange 


: global x y inode jnode elast area rho idux iduy 


kf-1; idux-[]; iduy-[]; disp? ^?) 


20: h 
2 


. disp([’ Give the name of a function which ’, 


Connected Truss?]); disp(’ ?); 


A sample data file defining a problem is 
given in crossdat.m 


^creates your input data’]); 


. disp([?Do not include .m in the name ’, 


’ (use crossdat as an example)']); 


. filename=input(’>? ’,’s’); 
3: eval(filename); disp? ’); 


se: 
39: % 


;: [stiff ,masmat]= ... 


Assemble the global stiffness and 
mass matrices 
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Al: 


assemble(x,y, inode, jnode,area,elast,rho) ; 


. ^ Compute natural frequencies and modal vectors 
. ^ accounting for the fixed nodes 

s ifixed=[2*idux(:)-1; 2*iduy(:)]; 

. [modvcs, eigval]=eigc (stiff ,masmat ,ifixed) ; 

. natfreqs-sqrt(eigval); 


. ^ Set parameters used in modal animation 

s: nSteps=31; s=sin(linspace(0,6.5*pi,nsteps) ) ; 
si X=X(:); y=y(:); np=2*length(x) ; 

s; bigxy-max(abs([x;yl)); scafac=.05*bigxy; 

ss: highmod-size(modvcs,2); hm=num2str(highmod) ; 


s 4 Show animated plots of the vibration modes 
s; While 1 


disp(’Give the mode numbers to be animated?’) ; 
disp([’Do not exceed a total of ’,hn, 
^ modes.’]); dispC Input O to stop’ ^); 
if kf--1, disp([’Try 1: ,hm]); kf=kf+1; end 
str= input (? > Os tan oe 
nmode=eval([’[’,str,’]’]); 
nmode= nmode (find (nmode<= highmod)) ; 
if sum(nmode)==0; break; end 
^4 Animate the various vibration modes 
hold off; clf; ovrsiz=1.1; 
w=cubrange([x(:),y(:)],ovrsiz) ; 
axis(w); axis(’square’); axis(’off’); hold on; 
for kk-1:length(nmode) % Loop over each mode 
kkn=nmode (kk) ; 
titl=[’Truss Vibration Mode Number ’, 
num2str(kkn)]; 
dd=modvcs(:,kkn); mdd-max(abs(dd)); 
dx-dd(1:2:np); dy-dd(2:2:np); 
clf; pause(1); 
^ Loop through several cycles of motion 
for jj=l:nsteps 
sf=scafac*s(jj)/mdd; 
xd=x+sf*dx; yd=yt+sf*dy; clf; 
axis(w); axis(’square’); axis(’off’); 
drawtrus(xd,yd,inode, jnode); title(titl); 
drawnow; figure(gcf) ; 
end 
end 


; end 
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; function crossdat 

: ^. [inode, jnode,elast,area,rho]-crossdat 

. ^ This function creates data for the truss 

. ^ vibration program. It can serve as a model 
. 4^ for other configurations by changing the 

s 4 function name and data quantities 

. ^ Data set: crossdat 


: global x y inode jnode elast area rho idux iduy 


s ^ Nodal point data are defined by: 

» ^ x- a vector of x coordinates 

:% y - a vector of y coordinates 

: x=10*[.5 2.5120123012312]; 
: y=10*[ 0 011222233334 4); 


. 4 Element data are defined by: 


^ inode - index vector defining the I-nodes 
^  jnode - index vector defining the J-nodes 
^ elast - vector of elastic modulus values 


^ area - vector of cross section area values 
^ rho  - vector of mass per unit volume 
1 values 


: inode=[1 1.2 2 3.394 94D 61 506 0 6 T T T wars 


83 9 10 11 10 11 10 11 13]; 


; jnode=[3 4 344667767899 10 11 10 ... 


11 12 12 10 11 12 13 13 14 14 14]; 


elast=3e7*ones (1,28); 
; area=ones(1,28); rho-ones(1,28); 


. 4 Any points constrained against displacement 
. 4 are defined by: 
: 4  idux - indices of nodes having zero 


m x-displacement 
: 4  iduy - indices of nodes having zero 
vs y-displacement 


© 2003 by CRC Press LLC 


35: 


nS 


$n A005. tals ono 20 


Dd 


dux-[1 2]; iduy=[1 2]; 


function drawtrus(x,y,i,j) 
0 


2 
|f 


drawtrus(x,y,i,j) 


This function draws a truss defined by nodal 
coordinates defined in x,y and member indices 
defined in i,j. 


User m functions called: none 


old on; 
or k-1:length(i) 
plot([x(iQ2),x(jO)], [y Ci O0) , y C 0021) ; 


; end 


. function [vecs,eigvals]-eigc(k,m,idzero) 


[vecs, eigvals]=eigc(k,m,idzero) 
This function computes eigenvalues and 
eigenvectors for the problem 
k*x-eigval*m*x 
with some components of x constrained to 
equal zero. The imposed constraint is 
x (idzero(j))=0 
for each component identified by the index 
matrix idzero. 


k - a real symmetric stiffness matrix 

m - a positive definite symmetric mass 
matrix 

idzero - the vector of indices identifying 


components to be made zero 
vecs - eigenvectors for the constrained 


problem. If matrix k has dimension 
n by n and the length of idzero is 
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oe 


90 mU SO ORs Dev CORDES wit 


m (with m«n), then vecs will be a 
set on n-m vectors in n space 


eigvals - eigenvalues for the constrained 


problem. These are all real. 


User m functions called:  eigsym 


; n*Size(k,1); j-1:n; j(idzero)=[]; 
; c=eye (n,n); c(j, D=; 


[vecs,eigvals]=eigsym((k+k’)/2, (mtm’)/2, c); 


: function [evecs,eigvals]-eigsym(k,m,c) 


[evecs,eigvals]-eigsym(k,m,c) 


This function solves the constrained 
eigenvalue problem 

k*x=(lambda) *m*x, with c*x-0. 
Matrix k must be real symmetric and matrix 
m must be symmetric and positive definite; 
otherwise, computed results will be wrong. 


k 
m 


evecs 


eigvals 


a real symmetric matrix 

a real symmetric positive 
definite matrix 

a matrix defining the constraint 
condition c*x=0. This matrix is 
omitted if no constraint exists. 


matrix of eigenvectors orthogonal 
with respect to k and m. The 
following relations apply: 
evecs?*m*evecs-identity matrix 
evecs’ *k*evecs=diag(eigvals) . 

a vector of the eigenvalues 
sorted in increasing order 


User m functions called: none 


; if nargin-- 


q-null(c); m=q’*m*q; k=q’*k*q; 
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; end 

; u=chol(m); k=u’\k/u; k=(ktk’)/2; 

s Levecs,eigvals]=eig(k) ; 

: [eigvals,j]-sort(diag(eigvals)); 

; evecs-evecs(:,j); evecs=u\evecs; 

; lf nargin--3, evecs-q*evecs; end 


; function [stif,masmat]- . 


assemble (x,y,id,jd,a,e, rho) 


3 ^ [stif,masmat]-assemble(x,y,id,jd,a,e,rho) 


; ^ This function assembles the global 

. ^ stiffness matrix and mass matrix for a 

: 4 plane truss structure. The mass density of 
. 4 each element equals unity. 


he X,y - nodal coordinate vectors 
: 4 id,jd - nodal indices of members 
3: 4 a,e - areas and elastic moduli of members 
: 4 rho - mass per unit volume of members 
0 
h 
» ^ stif | - global stiffness matrix 


. 4 masmat - global mass matrix 


; 4^ User m functions called: elmstf 


. numnod-length(x); numelm-length(a); 
; id=id(:); jd=jd(:); 

; stif=zeros(2*numnod); masmat=stif; 
; ij=[2*id-1,2*id,2*jd-1,2*jd]; 


for k=1:numelm, kk=ij(k,:); 
[stfk, voluk]e.. 
elmstf (x,y, a(k), e(k) ,id(k) ,jd(k)); 
stif (kk, kk) = stif (kk, kk) +stfk: 
masmat (kk, kk)=masmat (kk, kk)+ 
rho (k) *volmk/2*eye (4,4) ; 


; end 
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26: function [k,vol]=elmstf(x,y,a,e,i,j) 
267: y/ 


2: ^ [k,vol]-elmstf(x,y,a,e,i,j) 


21: ^ This function forms the stiffness matrix for 
22: Àj a truss element. The member volume is also 
273: 4 obtained. 


253: 4 User m functions called: none 


278: xx-x(j)-x(); yy=y (j) -y (i); 
27: L=norm([xx,yy]); vol=a*L; 
230: C=XX/L; s=yy/L; k=a*e/L*[-c;-s;c;s]*[-c,-s,c,s]; 


24: h function range=cubrange (xyz, ovrsiz) 
235: h See Appendix B 


E 


10.5 Buckling of Axially Loaded Columns 


Computing the buckling load and deflection curve for a slender axially loaded 
column leads to an interesting type of eigenvalue problem. Let us analyze a column 
of length L subjected to a critical value of axial load P just large enough to hold the 
column in a deflected configuration. Reducing the load below the critical value will 
allow the column to straighten out, whereas increasing the load above the buckling 
value will result in a structural failure. To prevent sudden collapse of structures 
using axially loaded members, designers must be able to calculate buckling loads 
corresponding to various end constraints. We will present an analysis allowing the 
flexural rigidity ÆI to vary along the length. Four common types of end conditions 
of interest are shown in Figure 10.4. For each of these systems we will assume that 
the coordinate origin is at the left end of the column! with y(0) — 0. Cases I and 
II involve statically determinate columns. Cases III and IV are different because 
unknown end reactions occur in the boundary conditions. 

All four problems lead to a homogeneous linear differential equation subjected 
to homogeneous boundary conditions. All of these cases possess a trivial solu- 
tion where y(x) vanishes identically. However, the solutions of practical interest 
involve a nonzero deflection configuration which is only possible when P equals 
the buckling load. Finite difference methods can be used to accurately approximate 


! Although columns are usually positioned vertically, we show them as horizontal for convenience. 
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I) Pinned-Pinned 


M 
P 
P 
y=0 y = wt) 
m=0 y =0 


III) Pinned-Fixed 


IV) Fixed-Fixed 


Figure 10.4: Buckling Configurations 
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Figure 10.5: Beam Element Subjected to Axial Load 


the differential equation and boundary conditions. In this manner we obtain a lin- 
ear algebraic eigenvalue problem subjected to side constraints characterized by an 
underdetermined system of linear simultaneous equations. 

Consider a beam element relating the bending moment m, the transverse shear v, 
the axial load P, and the transverse deflection y as shown in Figure 10.5. Equilibrium 
considerations imply 


v'(z) 2 0, m(x) + Py'(x) =v. 


Since no transverse external loading acts on the column between the end supports, 
the shear v is constant. Differentiating the moment equation gives 


m" (x) + Py" (x) = 0. 
Furthermore, flexural deformation theory of slender elastic beams implies 
Bly" (x) = m(z), 


which leads to the following homogeneous differential equation governing the bend- 
ing moment 
Elm" (x) + Pm(x) = 0. 


We need to find values of P allowing nontrivial solutions of this differential equation 
subject to the required homogeneous boundary conditions. The four types of end 
conditions shown in Figure 10.4 impose both deflection and moment conditions at 
the ends. Cases I and II can be formulated completely in terms of displacements 
because moment conditions evidently imply 


Ely" (£) = m = —Py. 


To handle cases III and IV, we need to relate the displacement and slope conditions 
at the ends to the bending moment. Let us denote the function 1/(ET) as k(x) so 
that 


Integration gives 
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and 
ule) = y(0) +f Ohe + f (e Om) de 
The boundary conditions for the pinned-fixed case require that 
a) y(0)=0, b) y(L)=0, © y(L)=0. 
Condition b) requires , 
v0) =~ f KEME dt. 


whereas a) and c) combined lead to 


L L 
y(L) = y(0) - L| km d£ + f (L — £)km d£. 
0 0 
Consequently for Cases III and IV the governing equation is 
EIm"(x) + Pm(x) = 0. 


The boundary conditions for Case III are 
L 
m(0) — 0 and ik xk(x)m(x) dx = 0. 
0 


The boundary conditions for Case IV are handled similarly. Since we must have 
y'(0) = y'(L) = 0 and y(0) = y(L) = 0, the conditions are 


n L 
| k(x)m(x) dx = 0 and T zk(x)m(x) dx = 0. 


The results for each case require a nontrivial solution of a homogeneous differ- 
ential equation satisfying homogeneous boundary conditions as summarized in the 
table below. 

Each of these boundary value problems can be transformed to linear algebraic 
form by choosing a set of evenly spaced grid points across the span and approximat- 
ing y" (x) by finite differences. It follows from Taylor's series that 


ya) = Mea N= Ble) + CET NN 


For sufficiently small h, we neglect the truncation error and write 


nm 3-1 — 2y; T yu 
Y = n2 
where y; is the approximation to y at x = x, = jh for 1 < 7 € n , where the stepsize 
h = L/(n + 1). Thus we have 


(ET); ly; — 2y; + Vj21] 


Do + Py, =0 
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Case Differential Boundary 
Equation Conditions 
pinned-pinned | Ey" (x) 4 0 0) =0 


1 
EIm"(x) + Pm(x) —0 


Buckling Problem Summary 


for Cases I or II, and 


(EI [m;-1 — 2m, + m,41] 


i + Pm, =0 


for Cases III or IV. At the left end, either y or m is zero in all cases. Case I also 
has y(L) = ya41 = 0. Case II requires y'(L) = 0. This is approximated in finite 
difference form as 


= 4Yn — Un-1 
Yn+1 = a 


which implies for Case II that 


can be formulated using the trapezoidal rule to give 
b T=0 
qoo [33 cach Mp; ro 1] ’ 


where the asterisk indicates matrix multiplication involving a row matrix bı defined 
by 


bi = [1, 1, ..., 1, 1/2] zo [21, 29, ..., 25, L] v [ER,..., EIn, EInji]. 
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Similarly, the condition 


— dr = 
o EI 
leads to 
1 | mo Mn+1 
b M pns = 
2 * (mi, T ] F 2 P mc 
with 


The first of these equations involving bı allows m,,+1 to be eliminated in Case III, 
whereas the two equations involving bı and bz allow elimination of mo and Mn+1 
(the moments at x = 0 and x = L) for Case IV. Hence, in all cases, we are led to an 
eigenvalue problem typified as 


EL(—m,-1 + 2m, —m,41) = Am, 


with \ = A? P, and we understand that the equations for 7 = 1 and 7 = n may require 
modification to account for pertinent boundary conditions. We are led to solve 


Am = Am 


where the desired buckling loads are associated with the smallest positive eigenvalue 
of matrix A. Cases I and II lead directly to the deflection curve forms. However, 
Cases III and IV require that the deflection curve be computed from the trapezoidal 


rule as 
x 


1 xd m 
VG) - v0) f. zr dz 


ye) = y(0)+y'(0) +a f Zar- | “ar. 
0 


EI o EI 
The deflection curves can be normalized to make y,,,, equal unity. This completes 
the formulation needed in the buckling analysis for all four cases studied. These 
solutions have been implemented in the program described later in this section. An 
example, which is solvable exactly, will be discussed next to demonstrate that the 
finite difference formulation actually produces good results. 


10.5.1 Example for a Linearly Tapered Circular Cross Section 


Consider a column with circular cross section tapered linearly from diameter h 1 
at x = 0 to diameter ha at x = L. The moment of inertia is given by 


which leads to 


sx\4 
EI = Eolo (1 T). 
TO 
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where 


= ho =x hy nhi 

EH DE 

and E, is the elastic modulus which is assumed to have a constant value. The differ- 
ential equation governing the moment in all cases (and for y in Case I or IT) is 


S 


(1 + sr)" m (a) + 


L (x) — 0. 


P 
ET 
This equation can be reduced to a simpler form by making a change of variables. Let 


us replace z and m(x) by t and g(t) defined by 


-1 
t= (1+ =) , g(t) 2 tm(z). 
L 
The differential equation for g(t) is found to be 
L P 
"(t) + A*g(t) = 0 where \ = —4/ ——. 
g” (t) + A g(t) = 0 where is V Bole 


(2) (1 i E) r À P. À 
m(x) = — } |e, sin | —— c2 cos | ——— 

LI) MEE) C 7 MEE 
where cı and c» are arbitrary constants found by imposing the boundary conditions. 
We will determine these constants for Cases I, II, and III. Case IV can be solved 
similarly and is left as an exercise for the reader. 


To deal with Cases I, II, and III it is convenient to begin with a solution that 
vanishes at x = 0. A function satisfying this requirement has the form 


m(z) = (+5) sin (32-3). 


This equation can also represent the deflection curve for Cases I and II or the moment 
curve for Case III. Imposition of the remaining boundary conditions leads to an 
eigenvalue equation which is used to determine A and the buckling load P. The 
deflection curve for Case I is taken as 


y(z) = (1 + =) sin (ss S a) 


and the requirement that y(L) = 0 yields 


AS O S L P = 
ie d EXw 4-4 VEL] ~ 


This means that the buckling load is 


Therefore, 


* Bolo ha —h 
p=" T2 (1-- s)? where s = EU 
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Therefore the buckling load for the tapered column (s 4 0) is simply obtained by 
multiplying the buckling load for the constant cross section column (s — 0) by a 


factor 
ha? 
1 ewe 
(+s) (=) 


This is also true for Cases HI and IV, but is not true for Case II. Let us derive the 
characteristic equation for Case III. The constraint condition for the pinned-fixed 


case requires 
L 
J? mr) d — 0, 
o EI 


b -3 
f eQ+2) fh OSs aes 
g T us 


This equation can be integrated using the substitution (1 + sz/ L) ^! = t. This leads 
to a characteristic equation of the form 


As L P 
0=tanð, ge ec ree 
D ACE > ae | Bae 


The smallest positive root of this equation is 0 = 4.4934, which yields 


So we need 


20.1906 E; I; 
pose ee (14- s)? for Case III. 


L2 
Further analysis produces 

pa Ed qs IV. 

= = | +s)” for Case IV. 


The characteristic equation for Case II can be obtained by starting with the Case I 
deflection equation and imposing the condition y'(L) — 0. This leads to 


: L JP 
SSN APOCO GT ES EET 


When s = 0, the smallest positive root of this equation is 0 = 7/2. Therefore, the 
buckling load (when s — 0) is 


71? Eolo 


P = — 
4L? 


for Case II, and the dependence on s found in the other cases does not hold for the 
free-fixed problem. 
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10.5.2 Numerical Results 


The function colbuc, which uses the above relationships, was written to analyze 
variable depth columns using any of the four types of end conditions discussed. The 
program allows a piecewise linear variation of ET. The program employs the func- 
tion lintrp for interpolation and the function trapsum to perform trapezoidal rule 
integration. Comparisons were made with results presented by Beer and Johnston 
[9] and a comprehensive handbook on stability [19]. We will present some examples 
to show how well the program works. It is known that a column of length L and 
constant cross section stiffness EI, has buckling loads of 


T?E,, T Esl 7? E,I, 71? Ealo 


L? ^ (2L) ' (0.6992L)?" (0.5L)? 


for the pinned-pinned, the free-fixed, the pinned-fixed, and the fixed-fixed end con- 
ditions respectively. These cases were verified using the program colbuc. Let us il- 
lustrate the capability of the program to approximately handle a discontinuous cross 
section change. We analyze a column twenty inches long consisting of a ten inch 
section pinned at the outer end and joined to a ten inch long section which is consid- 
ered rigid and fixed at the outer end. We use Eoo = 1 for the flexible section and 
EəIo = 10000 for the rigid section. This configuration should behave much like a 
pinned-fixed column of length 100 with a buckling load of (76.992) ? = 0.2019. 
Using 100 segments (nseq=100) the program yields a value of 0.1976, which 
agrees within 2.2% of the expected value. A graph of the computed deflection con- 
figuration is shown in Figure 10.6. The code necessary to solve this problem is: 


ei-[1 0; 1 10; 10000 10; 10000 20]; 


nseg-100; endc=3; len=20; 
[p,y,x]-2colbuc(len,ei,nseg,endc) 


For a second example we consider a ten inch long column of circular cross section 
which is tapered from a one inch diameter at one end to a two inch diameter at the 
other end. We employ a fixed-fixed end condition and use E; = 1. The theoretical 
results for this configuration indicate a buckling load of r ?/400 = 0.07752. 

Using 100 segments the program produces a value of 0.07728, which agrees 
within 0.3% of the exact result. The code to generate this result utilizes function 
eilt: 


ei=eilt(1,2,10,101,1); 


[p,v,x]-colbuc(10,ei,100,4); 


The examples presented illustrate the effectiveness of using finite difference meth- 
ods in conjunction with the intrinsic eigenvalue solver in MATLAB to compute buck- 
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Figure 10.6: Analysis of Discontinuous Pinned-Fixed Column 


ling loads. Furthermore, the provision for piecewise linear EJ variation provided in 
the program is adequate to handle various column shapes. 


Program Output and Code 


Function colbuc 


1. function [p,y,x]=colbuc(len,ei,nseg,endc) 
^ [p,y,x]=colbuc(len,ei,nseg,endc) 


on 
23 


: h This function determines the Euler buckling 
e 4 load for a slender column of variable cross 
7 ^ Section which can have any one of four 

& 4 constraint conditions at the column ends. 


1: 4 len - the column length 


i5 j ei | - the product of Young's modulus and the 
12: % cross section moment of inertia. This 
13: h quantity is defined as a piecewise 
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25: 


iW linear function specified at one or 


V M more points along the length.  ei(:,1) 
2r d contains ei values at points 
=% corresponding to x values given in 
h ei(:,2). Values at intermediate points 
bs are computed by linear interpolation 
sh using function lintrp which allows 
:% jump discontinuities in ei. 
2: ^ nseg - the number of segments into which the 
23: h column is divided to perform finite 
24: h difference calculations.The stepsize h 
» equals len/nseg. 
2: 4 endc - a parameter specifying the type of end 
27: h condition chosen. 
oh endc=1, both ends pinned 
H endc=2, x=0 free, x=len fixed 
24 endc-3, x-0 pinned, x=len fixed 
hy endc=4, both ends fixed 
(Ap - the Euler buckling load of the column 
3: ^ X,Y - vectors describing the shape of the 
A column in the buckled mode. x varies 
36: % between O and len. y is normalized to 
an % have a maximum value of one. 


. ^ User m functions called: lintrp, trapsum 


; if nargin--0; 


ei-[1 0; 1 10; 1000 10; 1000 20]; 
nseg-100; endc-3; len-20; 


; end 


; 4 If the column has constant cross section, 
. ^ then ei can be given as a single number. 
. ^ Also, use at least 20 segments to assure 
. ^ that computed results will be reasonable. 
. if size(ei,1) < 2 


ei-[ei(1,1),0; ei(1,1),len]; 
end 


; nseg=max (nseg, 30) ; 


; if endc-- 
. ^ pinned-pinned case (y=0 at x-0 and x=len) 


str-'Pinned-Pinned Buckling Load - '; 
h-len/nseg; n-nseg-1; x-linspace(h,len-h,n); 
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eiv=lintrp(ei(:,2),ei(:,1),x); 
a--diag(ones(n-1,1),1); 
a=ata’+diag(2*ones(n,1)); 

Lyvecs, pvals]=eig(diag(eiv/h*2) *a) ; 
pvals=diag(pvals) ; 

% Discard any spurious nonpositive eigenvalues 
j=find(pvals<=0) ; 


[p,k]=min(pvals); y=[0;yvecs(:,k);0]; 

Lym, j] -max (abs(y)) ; y=y/y(j); x=[0;x(:);len] ; 
: elseif endc== 

. ^ free-fixed case (y=0 at x=0 and y’=0 at x=len) 
str=’Free-Fixed Buckling Load = ’; 

h=len/nseg; n=nseg-1; x=linspace(h,len-h,n) ; 
eiv=lintrp(ei(:,2),ei(:,1),x); 
a--diag(ones(n-1,1),1); 
a=ata’+diag(2*ones(n,1)); 

^ Zero slope at x=len implies 

^ y(nt+1)=4/3*y(n)-1/3*y(n-1). This 

^ leads to y’’ (n)=(y(n-1)-y(n)) *2/(3*h^2). 
a(n, [n-1,n]) 2 [-2/3,2/3] ; 

Lyvecs, pvals]-eig(diag(eiv/h^2)*a); 
pvals-diag(pvals); 

^ Discard any spurious nonpositive eigenvalues 
j=find(pvals<=0) ; 


[p,k]=min(pvals); y=yvecs(: ,k); 
y=[0;y;4*y(n)/3-y(n-1)/3]; Lym, j]=max(abs(y)); 
y=y/y(j); x=[0;x(:);1len] ; 

: elseif endc== 

. ^ pinned-fixed case 

| ^ (y=0 at x-0 and x-len, y’=0 at x-len) 
str=’Pinned-Fixed Buckling Load = ’; 
h-len/nseg; n=nseg; x-linspace(h,len,n); 
eiv=lintrp(ei(:,2),ei(:,1),x); 
a--diag(ones(n-1,1),1); 
a=ata’+diag(2*ones(n,1)); 

^ Use a five point backward difference 

^ approximation for the second derivative 

^ at x-len. 

y—[35/12,-26/3,19/2, -14/3,11/121: 
a(n,n:-1:n-4)-v; a-diag(eiv/h^2)*a; 

^ Form the equation requiring zero deflection 
^ at x-len. 
b-x(:)?.*[ones(1,n-1),1/2]./eiv(:)'; 
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if length(j)>0, pvals(j)=[]; yvecs(:,j)=[]; end 


if length(j)>0, pvals(j)=[]; yvecs(:,j)=[]; end 


o: % Impose the homogeneous boundary condition 
o  q-null(b); [z,pvals]=eig(q’ *ax*q) ; 

o:  pvals=diag(pvals) ; 

o» ^ Discard any spurious nonpositive eigenvalues 
os k=find(pvals<=0) ; 

o: if length(k)>0, pvals(k)=[]; z(:,k)=[]; end; 
o X vecs-q*z; [p,k]=min(pvals); mom-[0;vecs(:,k)]; 
1 ^ Compute the slope and deflection from 

z ^ moment values. 

3  yp=trapsum(0,len,mom./[1;eiv(:)]); 

4 yp=yp-yp(n+1); y=trapsum(0,len,yp); 

s  Lym,j]=max(abs(y)); y=y/y(j); x=[0;x(:)]; 

6: else 

7 ^ fixed-fixed case 

& ^ (y and y? both zero at each end) 

ə | Str-'Fixed-Fixed Buckling Load = '; 

:»  h=len/nseg; n-nseg*1; x-linspace(0,1en,n); 
a: @iv=lintrp(ei(:,2),ei(:,1),x); 

2:  a--diag(ones(n-1,1),1); 

»»  a=ata’+diag(2*ones(n,1)); 

2: | ^ Use five point forward and backward 

2: % difference approximations for the second 
2; derivatives at each end. 

a. v=-[35/12,-26/3,19/2,-14/3,11/12] ; 

2: a(1,1:5)=v; a(n,n:-1:n-4)=v; 

2; a=diag(eiv/h*2)*a; 

3: % Write homogeneous equations to make the 

3: % Slope and deflection vanish at x=len. 

3:  b-[1/2,0nes(1,n-2),1/2] ./eiv(:)^; 

a  b=[b;x(:)?.*b]; 

3: % Impose the homogeneous boundary conditions 
3;  q-null(b); [z,pvals]-eig(q!*a*q); 

3  pvals=diag(pvals) ; 

3: Discard any spurious nonpositive eigenvalues 
ss k=find(pvals<=0) ; 

3: if length(k>0), pvals(k)=[]; z(:,k)=[]; end; 
4: vecs=q*z; [p,k]=min(pvals); mom-vecs(:,k); 
a: ^4 Compute the moment and slope from moment 
a» — ^ values. 

a»  yp=trapsum(0,len,mom./eiv(:)); 

4; y=trapsum(0,len,yp) ; 

i. — Lym, jl2-max(abs(y)); y=y/y(j); 

4e end 


as: Close; 


© 2003 by CRC Press LLC 
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A 
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75: 


Shes 


A 


: plot(x,y); grid on; 

: Xlabel(’axial direction’); 

: ylabel(’transverse deflection’); 

. title([str,num2str(p)]); figure(gcf); 
: print -deps buck 


; function v=trapsum(a,b,y,n) 


v-trapsum(a,b,y,n) 


This function evaluates: 


integral(a=>x, y(x)*dx) for a<=x<=b 


by the trapezoidal rule (which assumes linear 
function variation between succesive function 
values). 


a,b 
y 


V 


limits of integration 

integrand which can be a vector valued 
function returning a matrix such that 
function values vary from row to row. 
It can also be input as a matrix with 
the row size being the number of 
function values and the column size 
being the number of components in the 
vector function. 

the number of function values used to 
perform the integration. When y is a 
matrix then n is computed as the number 
of rows in matrix y. 


integral value 


; if isstr(y) 


^ y is an externally defined function 
x=linspace(a,b,n)’; h=x(2)-x(1); 
Y=feval(y,x); % Function values must vary in 


% row order rather than column 
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235: 


^ order or computed results 
^ will be wrong. 
m-size(Y,2); 


; else 


^ y is column vector or a matrix 
Y=y; [n,m]=size(Y); h=(b-a)/(n-1); 


; end 
; v2 [zeros (1,m) ; 


b/2*cungun(Y i:n-1, 34 (9:2, 9))]3 


; function ei-eilt(hi1,h2,L,n,E) 


; 4 ei-eilt(hi1,h2,L,n,E) 


^ This function computes the moment of inertia 
^ along a linearly tapered circular cross 

^ section and then uses that value to produce 
^ the product EI. 


h 
^4 h1,h2 - column diameters at each end 
AL - column length 
% n - number of points at which ei is 
d computed 
- hE - Young’s modulus 
h 
:% ei - vector of EI values along column 
h 


; 4^ User m functions called: none 


: if nargin<5, E-1; end; 

. x=linspace(0,L,n)’; 

; ei=E*pi/64* (h1+(h2-h1)/L*x) .^4; 
; ei=[ei(:),x(:)]; 


.% function y-lintrp(xd,yd,x) 


^ See Appendix B 
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E: SeSe 


10.6 Accuracy Comparison for Euler Beam Natural Frequencies 
by Finite Element and Finite Difference Methods 


Next we consider three different methods of natural frequency computation for 
a cantilever beam. Comparisons are made among results from: a) the solution of 
the frequency equation for the true continuum model; b) the approximation of the 
equations of motion using finite differences to replace the spatial derivatives; and c) 
the use of finite element methods yielding a piecewise cubic spatial interpolation of 
the displacement field. The first method is less appealing as a general tool than the 
last two methods because the frequency equation is difficult to obtain for geometries 
of variable cross section. Frequencies found using finite difference and finite ele- 
ment methods are compared with results from the exact model; and it is observed 
that the finite element method produces results that are superior to those from finite 
differences for comparable degrees of freedom. In addition, the natural frequencies 
and mode shapes given by finite elements are used to compute and animate the sys- 
tem response produced when a beam, initially at rest, is suddenly subjected to two 
concentrated loads. 


10.6.1 Mathematical Formulation 


The differential equation governing transverse vibrations of an elastic beam of 
constant depth is [69] 


a = 2 +W(X,T) Ox X-x£& T>0 
oxi "or? i 
where 
Y(X,T) - transverse displacement, 
X — horizontal position along the beam length, 
T - time, 
EI - product of moment of inertia and Young's modulus, 


I 
p -— mass per unit length of the beam, 
W(X,T) - external applied force per unit length. 


In the present study, we consider the cantilever beam shown in Figure 10.7, having 
end conditions which are 
OY (0, T) 


Y(0,T)-— —RR— = EI 
(0, T) 0, OX 0, 


8?Y (L, T) 
OX? 


Y(T) 


= Mg(T d EI 
E( ),an Ox3 


= Vg(T). 


This problem can be expressed more concisely using dimensionless variables 
X Y du EI(T 
= — = — gan = — a . 
dud y p (E 
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Figure 10.7: Cantilever Beam Subjected to Impact Loading 


Then the differential equation becomes 


Oty 0?y 
Bat gm tren) 


and the boundary conditions reduce to 


Oy 


y(0, t) > 0, ERU =0 


where 
w = (W)/(EI) , me = (MgO/(EI) and ve = (Vel?) /(EI). 


The natural frequencies of the system are obtained by computing homogeneous so- 
lutions of the form y(z, t) = f(x) sin(wt) which exist when w = m, = ve = 0. 
This implies 

dF 6 

—— = M f where \ = Vw, 

da 
subject to 


f(0) =0, f'(0) 20, f"(1) 20, f^"(1) — 0. 


The solution satisfying this fourth order differential equation with homogeneous 
boundary conditions has the form 


f = [cos(Ax) ^ cosh(Az)][sin(A) -sinh(A)] — [sin( Az) —sinh (Ax)] [cos( A) 4-cosh(A)]; 
where A satisfies the frequency equation 
p(A) = cos(A) + 1/ cosh(A) = 0. 


Although the roots cannot be obtained explicitly, asymptotic approximations exist 
for large n: 
An = (2k — 1)n/2. 
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These estimates can be used as the starting points for finding approximate roots of 
the frequency equation using Newton's method: 


Anew = Aorp — p(^orp)/v (^orp). 


The exact solution will be used to compare related results produced by finite differ- 
ence and finite element methods. First we consider finite differences. The following 
difference formulas have a quadratic truncation error derivable from Taylor's series 


[1]: 


y (£) = [-y(z — h) + y(x + h)]/(2h), 

y" (x) = [y(x — h) - 2y(z) + y(z + h)]/h?, 

y" (a) = [-y(a — 2h) + 2y(x — h) — 2y(x + h) + y(x + 2h)]/(2h?), 
y" (x) = [y(x — 2h) — Ay(x — h) + 6y(x) — Ay(x + h) + y(x + 2h)]|/h^. 


The step-size is h = 1/n so that z} = jh, 0 < J} < n, where xo is at the left end 
and zp is at the right end of the beam. It is desirable to include additional fictitious 
points zi, 2541 and zn+2. Then the left end conditions imply 


yo = yı and y-1 = yi, 
and the right end conditions imply 


Yn4+1 = —Un-1 + 2Yn and Yn+2 = Un-2 — 4Yn t+ Ayn. 


Using these relations, the algebraic eigenvalue problem derived from the difference 
approximation is 


Ty, — Aya + ys = Ayn, 
4yi + 6y2 — 4y3 + ys = Af yo, 
Ji-2 — 4-1 6Yy — Apa + Ysa = 35, 2< J< (n—-1), 
Yn—3 — 4Yn—2 + 9yn-1 — 2Yn = Àyn-1i, 
2yn-2 — 4Yn—-1 d 2Yn = Ayn, 


where \ = h4A. 

The finite element method leads to a similar problem involving global mass and 
stiffness matrices [54]. When we consider a single beam element of mass m and 
length £, the elemental mass and stiffness matrices found using a cubically varying 
displacement approximation are 


156 224 54-132 6 3l -6 3é 
m 220 40? 134-32 EI | 3 2 -34 @ 


Me= 0| 54 13€ 156-220| ^ fo^ B |-6-34 6-36" 


—13¢ -30 -22¢ 40? 3L Ê —30 20? 
and the elemental equation of motion has the form 


MY, + KeYz = Fe 
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where 
Y, = [Y1, Y; , Y2, Yz]! and F, = [Fi, Mi, F2, Mo] 


are generalized elemental displacement and force vectors. The global equation of 
motion is obtained as an assembly of element matrices and has the form 


MY" + KY =F. 


A system with N elements involves N + 1 nodal points. For the cantilever beam 
studied here both Yo and Ys are zero. So removing these two variables leaves a 
system of n = 2N unknowns. The solution of this equation in the case of a non- 
resonant harmonic forcing function will be discussed further. The matrix analog of 
the simple harmonic equation is 


MY + KY = F; cos(wt) + Fo, sin(wt) 
with initial conditions 
Y(0) = Yo and Y(0) = Vo. 


The solution of this differential equation is the sum of a particular solution and a 
homogeneous solution: 
Y = Yp + Yu, 


where 
Yu = Yı cos(wt) + Yo sin(wt) 
with 
Y; = (K -w° M) ! F, qmd 


This assumes that K — w? M is nonsingular. The homogeneous equation satisfies the 
initial conditions 


Yu (0) = Yo — Yı , Yu(0) = Vo — wo. 
The homogeneous solution components have the form 
Y;u = U; cos(w;t + $5) 


where w, and U, are natural frequencies and modal vectors satisfying the eigenvalue 
equation 
A d 
KU, = w; MU}. 


Consequently, the homogeneous solution completing the modal response is 
Yu (t) = X` U,[cos(u;t)c, + sin(w;t)d;/u;] 
j—1 
where c, and d, are computed to satisfy the initial conditions which require 
C = U`! (Yo — Yi) and D = U~! (V — wY2). 


The next section presents the MATLAB program. Natural frequencies from finite 
difference and finite element matrices are compared and modal vectors from the 
finite element method are used to analyze a time response problem. 
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10.6.2 Discussion of the Code 


A program was written to compare exact frequencies from the original continuous 
beam model with approximations produced using finite differences and finite ele- 
ments. The finite element results were also employed to calculate a time response by 
modal superposition for any structure that has general mass and stiffness matrices, 


and is subjected to loads which are constant or harmonically varying. 


The code below is fairly long because various MATLAB capabilities are applied 
to three different solution methods. The following function summary involves nine 


functions, several of which were used earlier in the text. 


cbfreq 


cbfrqnwm 
cbfrqfdm 


cbfrqfem 


frud 


examplmo 


animate 


plotsave 


inputv 


driver to input data, call computation modules, and 
print results 

function to compute exact natural frequencies by New- 
ton's method for root calculation 

forms equations of motion using finite differences and 
calls eig to compute natural frequencies 

uses the finite element method to form the equation 
of motion and calls eig to compute natural frequencies 
and modal vectors 

function which solves the structural dynamics equation 
by methods developed in Chapter 7 

evaluates the response caused when a downward load 
at the middle and an upward load at the free end are 
applied 

plots successive positions of the beam to animate the 
motion 

plots the beam frequencies for the three methods. Also 
plots percent errors showing how accurate finite ele- 
ment and finite difference methods are 

reads a sequence of numbers 


Table 10.2: Functions Used in the Beam Code 


Several characteristics of the functions assembled for this program are worth exam- 


ining in detail. The next table contains remarks relevant to the code. 


Output Natural frequencies are printed along with er- 
ror percentages. The output shown here has 
been extracted from the actual output to show 
only the highest and lowest frequencies. 


continued on next page 
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99 Asymptotic estimates are used to start a New- 
ton method iteration. 

102-108 | Root corrections are carried out for all roots 
until the correction to any root is sufficiently 
small. 

cbfrqfdm 135-136 | The equations of motion are formed without 
corrections for end conditions. 

138-145 | End conditions are applied. 

149*150 | eig computes the frequencies. 

cbfrqfem 182-186 | Form elemental mass matrix. 

189-192 | Form elemental stiffness matrix. 

198-201 | Global equations of motion are formed using 
an element by element loop. 

205 Boundary conditions are applied requiring 
Zero displacement and slope at the left end, 
and zero moment and shear at the right end. 

208-214 | Frequencies and modal vectors are computed. 
Note that modal vector computation is made 
optional since this takes longer than only 
computing frequencies. 

Compute time response by modal superpo- 
sition. Theoretical details pertaining to this 
function appear in Chapter 7. 

202-296 | The time step and maximum time for re- 
sponse calculation is selected. 

300-301 | Function frud is used to compute displace- 
ment and rotation response. Only displace- 
ment is saved. 

304-307 | Free end displacement is plotted. 

314-319 | A surface showing displacement as a function 
of position and time is shown. 

324-326 | Function animate is called. 

animate 364-369 | Window limits are determined. 

373-381 | Each position is plotted. Then it is erased be- 

fore proceeding to the next position. 
plotsave Plot and save graphs showing the frequencies 
and error percentages. 


Table 10.3: Description of Code in Example 
10.6.3 Numerical Results 


The dimensionless frequency estimates from the finite difference and the finite el- 
ement methods were compared for various numbers of degrees-of-freedom. Typical 
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Cantilever Beam Frequencies 
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Figure 10.8: Cantilever Beam Frequencies 


program output for n = 100 is shown at the end of this section. The frequency results 
and error percentages are shown in Figures 10.8 and 10.9. It is evident that the finite 
difference frequencies are consistently low and the finite element results are consis- 
tently high. The finite difference estimates degrade smoothly with increasing order. 
The finite element frequencies are surprisingly accurate for wp when k < n/2. At 
k — n/2 and k — n, the finite element error jumps sharply. This peculiar error jump 
halfway through the spectrum has also been observed in [54]. The most important 
and useful result seen from Figure 10.9 is that in order to obtain a particular number 
of frequencies, say N, which are accurate within 3.5%, it is necessary to employ 
more than 2N elements and keep only half of the predicted values. 

The final result presented is the time response of a beam which is initially at rest 
when a concentrated downward load of five units is applied at the middle and a one 
unit upward load is applied at the free end. The time history was computed using 
function frud. Figure 10.10 shows the time history of the free end. Figure 10.11 
is a surface plot illustrating how the deflection pattern changes with time. Finally, 
Figure 10.12 shows successive deflection positions produced by function animate. 
The output was obtained by suppressing the graph clearing option for successive 
configurations. 
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Cantilever Beam Frequency Error Percentages 
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Figure 10.9: Cantilever Beam Frequency Error Percentages 
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Figure 10.10: Position of the Free End of the Beam versus Time 
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Cantilever Beam Deflection for Varying Position and Time 


T 
© 
ro) 


04+ 


T 
N 
o 


uonoepep 


-0.2 + 


-04-| 


-0.6 + 


time 


x axis 


Beam Deflection History 


Figure 10.11 


Beam Animation 


Beam Animation 


Figure 10.12 
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MATLAB Example 
Output from Example 


>> cbfreq 


CANTILEVER BEAM FREQUENCIES BY FINITE 


DIFF 


ERENCE AND 


FINITE ELEMENT APPROXIMATION 


Give the number of frequencies to be compu 


(use an even number greater than 2) 
? > 100 


freq. exact. fdif. fd. pet. 
number freq. freq. error 

1 3.51602e+00 3.51572e+00 -0.008 

2 2.20345e+01 2.20250e+01 -0.043 

3 6.16972e+01 6.16414e+01 -0.090 

4 1.20902e+02 1.20714e+02 -0.155 

5 1.99860e+02 1.99386e+02 -0.237 

6 2.98556e+02 2.97558e+02 -0.334 

7 4.16991e+02 4.15123e+02 -0.448 

8 5.55165e+02 5.51957e+02 -0.578 

9 7.13079e+02 7.07918e+02 -0.724 
10 8.90732e+02 8.82842e+02 -0.886 
11 1.08812e+03 1.07655e+03 -1.064 
12 1.30526e+03 1.28884e+03 -1.257 
T3 1.54213e+03 1.51950e+03 -1.467 
14 1.79874e+03 1.76830e+03 -1.692 
Ls 2.07508e+03 2.03497e+03 41,933 
16 2.37117e+03 2.31926e+03 ca 189 
d 2.68700e+03 2.62088e+03 -2.461 
18 3.02257e+03 2.93951e+03 -2.748 
19 3.37787e+03 3.27486e+03 23050 
20 3.75292e+03 3.62657e+03 -3.367 

====== INTERMEDIATE LINES OF OUTPUT 

90 7.90580e+04 3.88340e+04  -50.879 
91 8.08345e+04 3.90347e+04 -51.710 
92 8.26308e+04 3.92169e+04 -52.540 
93 8.44468e+04 3.93804e+04 -53.367 
94 8.62825e+04 3.95250e+04 -54.191 
95 8.81380e+04 3.96507e+04 -55.013 
96 9.00133e+04 3.97572e+04 -55.832 
97 9.19082e+04 3.98445e+04 -56.648 
98 9.38229e+04 3.99125e+04 -57.460 
99 9.57574e+04 3.99611e+04 -58.268 
100 9.77116e+04 3.99903e+04 -59.073 


Evaluate the time response from two 
concentrated loads. One downward at the 
middle and one upward at the free end. 


input the time step and the maximum time 
(0.04 and 5.0) are typical. 


© 2003 by CRC Press LLC 


ted 


felt. 
freq. 


3.51602e+00 
2.20345e+01 
6.16972e+01 
1.20902e+02 
1.99860e+02 
2.98558e+02 
4.16999e+02 
5.55184e+02 
7.13119e+02 
8.90809e+02 
1.08826e+03 
1.30550e+03 
1.54252e+03 
1.79937e+03 
2.07605e+03 
2.37261e+03 
2.68908e+03 
3.02551e+03 
3.38197e+03 
3.75851e+03 


DELETED 


1.09328e+05 
1.11989e+05 
1.14512e+05 
1.16860e+05 
1.18999e+05 
1.20889e+05 
1.22496e+05 
1.23786e+05 
1.24730e+05 
1.25305e+05 
1.49694e+05 


Use 0,0 to stop 


fe. 


pct. 


error 


OSS Qoo O SS: OO OO OO O 


.000 
.000 
.000 
.000 
.000 
.001 
.002 
.003 
.006 
.009 
.013 
.019 
.026 
.035 
.047 
.061 
.077 
.098 
121 
.149 


.288 
.541 
.582 
.384 
.917 
.159 
.086 
.684 
.941 
.857 
.200 


? .04,5 


Evaluate the time response resulting from a 
concentrated downward load at the middle and 
an upward end load. 


input the time step and the maximum time 
(0.04 and 5.0) are typical. Use 0,0 to stop 


? 0,0 


Program cbfrq 


; function cbfreq 
^ Example: cbfreq 


This program computes approximate natural 

^ frequencies of a uniform depth cantilever 

^ beam using finite difference and finite 

^ element methods. Error results are presented 
^ which demonstrate that the finite element 

: 4 method is much more accurate than the finite 
1: 4 difference method when the same matrix orders 
u: A are used in computation of the eigenvalues. 


Qe tom oom Ie CAM eS 
e 
"usd 


fo 
e 
ex 


i h User m functions required: 
14: h cbfrqnwm, cbfrqfdm, cbfrqfem, frud, 
i: ^ | examplmo, beamanim, plotsave, inputv 


iz Clear, fprintf(’\n\n’) 

i fprintf (CANTILEVER BEAM FREQUENCIES BY ?) 

1» fprintf FINITE DIFFERENCE AND?) 

2; fprintf(... 

a: ?\n FINITE ELEMENT APPROXIMATION\n’ ) 


23: fprintf(’\nGive the number of frequencies ’) 
2: fprintf(?to be computed’) 

z; fprintf(’\n(use an even number greater ’) 

2: fprintf (than 2)\n’), n=input(’? > ’); 

2: if rem(n,2) ~= 0, n-n*1; end 


2: 4 Exact frequencies from solution of 


30: 4^ the frequency equation 
ai Wex = cbfrqnwm(n,1e-12); 
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. ^ Frequencies for the finite 
34 ^ difference solution 
s Wfd = cbfrqfdm(n); 


3: ^ Frequencies, modal vectors, mass matrix, 

ss 4 and stiffness matrix from the finite 

; 4 element solution. 

. nelts-n/2; [wfe,mv,mm,kk] = cbfrqfem(nelts) ; 
; pefdm=(wfd-wex) ./ (.O1*wex) ; 

; pefem=(wfe-wex) ./(.01*wex) ; 


. nlines-17; nloop=round(n/nlines) ; 
s v=[(1:n)’ ,wex,wfd,pefdm,wfe,pefem]; 
. disp? 7), lo=1; 


az ti-[? freq. exact. fdif." 
48: ? fd. pets 
49; t 1-7 [t1," felt. fe. pot]. 
so: t2=[’number freq. freq.’ 
51: d error ^]; 
5: t2=[t2,’ freq. error ^]; 


5; While lo < n 


disp(t1) ,disp(t2) 
hi-min(lo*nlines-1,n); 
for j=lo:hi 
si=sprintf(’\n %4.0f %13.5e %13.5e’, 
v(j,,v(j,2),v(j,3)); 
s2-sprintf(? %9.3f 413.5e 49.3f', 
v(j,4) ,v(j,5),v(j,6)); 
fprintf ([s1,s2]) 
end 
fprintf(’\n\nPress [Enter] to continue\n\n’); 
pause; 
lo=lo+nlines; 


: end 

: plotsave(wex,wfd,pefdm,wfe,pefem) 

. nfe-length(wfe); nmidl-nfe/2; 

; if rem(nmidl,2)--0, nmidl=nmidl+1; end 

; XO-zeros(nfe,1); vO-x0; w=0; 

;: fi-zeros(nfe,1); f2-f1; fi(nfe-1)-1; 

. £1(nmidl)=-5; 

. xsav-examplmo (mm,kk,f1,f2,x0,v0,wfe,mv); 
. close; fprintf(?All Done\n’) 
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. function z-cbfrqnwm(n,tol) 
. 4 z=cbfrqnwm(n,tol) 


. ^ Cantilever beam frequencies by Newton’s 
. ^ method. Zeros of 

2 f(z) = cos(z) + 1/cosh(z) 

s 4 are computed. 


. ^n  - Number of frequencies required 

. 4 tol - Error tolerance for terminating 
D the iteration 

. 4^ z  - Dimensionless frequencies are the 
Sh squares of the roots of f(z)=0 


; if nargin ==1, tol-1.e-5; end 


. ^ Base initial estimates on the asymptotic 
. ^ form of the frequency equation 
; zbegin=((1:n)-.5)’*pi; zbegin(1)=1.875; big-10; 


; 4 Start Newton iteration 
: While big > tol 


t-exp(-zbegin); tt-t.*t; 
f=cos(zbegin)+2*t./(1+tt) ; 
fp--sin(zbegin)-2*t.*(1-tt)./(1*tt).^2; 
delz--f./fp; 

z-zbegin*delz; big-max(abs(delz)); zbegin-z; 


; end 


: function [wfindif,mat]-cbfrqfdm(n) 


^ [wfindif,mat]-cbfrqfdm(n) 


^ This function computes approximate cantilever 
^ beam frequencies by the finite difference 


. 4, method. The truncation error for the 
. 4 differential equation and boundary 
. 4^ conditions are of order h^2. 
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An - Number of frequencies to be 


25: % computed 

26: ^ wfindif - Approximate frequencies in 

27: h dimensionless form 

zs ^ mat - Matrix having eigenvalues which 
29: h are the square roots of the 

30: f frequencies 


; 4 User m functions called: none 


s ^ Form the primary part of the frequency matrix 
; nat-3*diag(ones(n,1))-4*diag(ones(n-1,1),1)*... 


diag(ones(n-2,1),2); mat=(mat+mat’) ; 


. 4 Impose left end boundary conditions 
- 4 y(O)=0 and y? (0)=0 
; mat (1, [1:3])2[7,-4,1] ; mat(2, [1:4])=[-4,6,-4,1]; 


» ^ Impose right end boundary conditions 
O4 y?? (1020 and y??? (1020 

s mat n-1, [n-3:n]) 2 [1,-4,5,-2] ; 

; nat (n, [n-2:n])=[2,-4,2]; 


; ^ Compute approximate frequencies and 
: 4 sort these values 

so: W=eig(mat); w=sort(w); h=1/n; 

si. Wfindif-sqrt (w) /(h*h) ; 


s function [wfem,modvecs,mm,kk]- 


cbfrqfem(nelts,mas,len,ei) 


ss: 4 Lwfem,modvecs,mm,kk]= 


% cbfrqfem(nelts,mas,len,ei) 


: 4 Determination of natural frequencies of a 
» 4 uniform depth cantilever beam by the Finite 
; ^ Element Method. 


;. 4 nelts - number of elements in the beam 
.^4 mas - total beam mass 
7z: 4 len - total beam length 
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90: 


s ^ ei - elastic modulus times moment 


so: ^ of inertia 

.^4 wfem - dimensionless circular frequencies 
: 4 modvecs - modal vector matrix 

-% mm,kk - reduced mass and stiffness 

3: h matrices 


s: 4 User m functions called: none 


; if nargin--1, mas-1; len-1; ei-1; end 
; n=nelts; le-len/n; me-mas/n; 
: ci26/1e^2; c2-3/le; c3=2*ei/le; 


;. 4, element mass matrix 
; masselt=me/420* 


156,  22*le, 54, -13*le 
22*le, 4*1e^2, 13*le, -3*1le^2 
54,  13*le, 156, -22*le 


-13*1e, -3*1e^2, -22*le, 4*1e^2]; 


: 4 element stiffness matrix 


stifelt=c3*[ ci, c2, -ci, c2 
c2, 2, -c2, 1 
-ci, -c2, c1, -c2 
c2, 1, -c2, 2]; 


E ndof-2*(n*1); jj=0:3; 
; mm=zeros(ndof);  kk-zeros(ndof); 


: 4 Assemble equations 
: for i-1:n 


j-2*i-1*jj; mm(j,j)=mm(j,j)+masselt; 
kk(j, j) -kk(j, j) *stifelt; 


; end 


; ^ Remove degrees of freedom for zero 
s ^ deflection and zero slope at the left end. 
; nm-mm(3:ndof,3:ndof); kk-kk(3:ndof,3:ndof); 


: 4 Compute frequencies 
; if nargout -- 


wfem=sqrt (sort (real (eig(mm\kk) ))); 


; else 


[modvecs , wfem] =eig(mm\kk) ; 


© 2003 by CRC Press LLC 


[wfem,id]-sort(diag(wfem)); 
wfem-sqrt(wfem); modvecs-modvecs(:,id); 


end 


; function [t,x]= ... 


frud(m,k,f1,f2,w,x0,vO,wn,modvc,h,tmax) 


oh m*x?? 
% 
^m,k - 
4 f1,f2 - 
% 
h w = 
% 
^ wn - 
^4 x0,v0 - 
% 

; 4 modvc - 
p! 

; 4 h,tmax - 
% 
Wt - 
js 
hX = 


; t70:h:tmax; 
; wn=wn(:); wnt-wn*t; 


; 4 Evaluate 
; x122 (k- ww) *m)\ [£1,£2]; 

; X172x12(:,1); x2=x12(:,2); 

; xpexi*cos(w*t)*x2*sin(w*t); 


4 (t,x]=frud(m,k,f1,£2,w,x0,v0,wn,modvc,h, tmax) 
:. 4 This function employs modal superposition 
. 4 to solve 


+ k*x = fi*cos(w*t) + f2*sin(wk*t) 


mass and stiffness matrices 
amplitude vectors for the forcing 
function 

forcing frequency not matching any 
natural frequency component in wn 
vector of natural frequency values 
initial displacement and velocity 
vectors 

matrix with modal vectors as its 
columns 

time step and maximum time for 
evaluation of the solution 

column of times at which the 
solution is computed 

solution matrix in which row j 

is the solution vector at 

time t(j) 


; 4 User m functions called: none 


nt-length(t); nx-length(xO); 


the particular solution. 
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. 4 Evaluate the homogeneous solution. 

: cof=modvc\ [x0-x1, vO-w*x2] ; 

. cl=cof(:,1)’; c2=(cof(:,2)./wn)’; 

; xh=(modvc.*c1(ones(1,nx),:))*cos(wnt)+... 


(modvc.*c2(ones(1,nx),:))*sin(wnt) ; 


; ^ Combine the particular and 
: 4 homogeneous solutions. 
3» t-t(:); x=(xptxh)’; 


: function x=examplmo(mm,kk,f1,f£2,x0,v0,wfe,mv) 
: 4 x=examplmo(mm,kk,f1,£2,x0,v0,wfe,mv) 


. 4 Evaluate the response caused when a downward 
: 4 load at the middle and an upward load at the 
: ^ free end is applied. 


; 4 mm, kk - mass and stiffness matrices 

: 4 £1, £2 - forcing function magnitudes 

;: 4 x0, vO - initial position and velocity 
| 4 wfe - forcing function frequency 
4 mv - matrix of modal vectors 


:. 4 User m functions called: frud, beamanim, inputv 
. w=0; n-length(x0); t0-0; x=[]; 


. si=[’\nEvaluate the time response from two’,... 
^hAnconcentrated loads. One downward at the’,... 


’\nmiddle and one upward at the free end.’]; 


; while 1 


fprintf(s1), fprintf(’\n\n’) 

fprintf(?Input the time step and ’) 
fprintf(’the maximum time ’) 
fprintf(’\n(0.04 and 5.0) are typical.) 
fprintf(’ Use 0,0 to stop\n’) 

[h, tmax]=inputv; 

if norm([h,tmax])--0 | isnan(h), return, end 
disp(’ ?) 


[t,x]= ... 
frud(mm,kk,f1,f2,w,x0,vO,wfe,mv,h,tmax); 
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x-x(:,1:2:m-1); x-[zeros(length(t),1),x]; 
[nt,nc]-size(x); hdist-linspace(0,1,nc); 


clf, plot(b;xC no), E71) 

title(’Position of the Free End of the Beam’) 
xlabel(’dimensionless time’) 

ylabel(’end deflection’), figure(gcf) 
disp(’Press [Enter] for a surface plot of’) 
disp(’transverse deflection versus x and t’) 
pause 

print -deps endposi 

xc-linspace(0,1,nc); zmax-1.2*max(abs(x(:))); 


clf, surf(xc,t,x), view(30,35) 

colormap([1 1 1]) 

axis([0,1,0, tmax,-zmax,zmax]) 

xlabel(?x axis’); ylabel(’time’) 

zlabel(’deflection’ ) 

title(['Cantilever Beam Deflection ’ 
>for Varying Position and Time’]) 

figure(gcf) ; 

print -deps endpos2 

dispC ’), disp(['Press [Enter] to animate’,... 
^ the beam motion’]) 

pause 


titl=’Cantilever Beam Animation’; 
xlab=’x axis’; ylab=’displacement’ ; 
beamanim(hdist,x,0.1,titl,xlab,ylab), close 


; end 


function beamanim(x,u,tpause,titl,xlabl,ylabl) 
See Appendix B 


. function plotsave(wex,wfd,pefd,wfe,pefem) 


function plotsave(wex,wfd,pefd,wfe,pefem) 


This function plots errors in frequencies 
computed by two approximate methods. 
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» ^ 


DOW 
; wmin-min(w); wmax-max(w); 
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hh 


wex - exact frequencies 

wid - finite difference frequencies 
wfe - finite element frequencies 
pefd,pefem - percent errors by both methods 


User m functions called: none 


plot results comparing accuracy 
of both frequency methods 
=[wex(:);wfd(:) ;wfd]; 


-length(wex); wht-wmin*.001*(wmax-wmin); 
-1:n; 


emilogy(j,wex,’k-’,j,wfe,’k--’,j,wfd,’k:’) 
itle(’Cantilever Beam Frequencies’) 
label(’frequency number’) 
label(’frequency values’) 
egend(’Exact freq.’,’Felt. freq.’, 
"Fdif. freq. ,2); fipure (ect) 
isp(['Press [Enter] for a frequency ’,... 
'error plot’]), pause 
rint -deps beamfrqi 


lot(j,abs(pefd) ,’k--’,j,abs(pefem) ,’k-’) 
itle(['Cantilever Beam Frequency ’ 

’Error Percentages’ ] ) 
label(’frequency number’) 
label(’percent frequency error’) 
egend(’Fdif. pct. error’,’Felt. pct. error’ ,4) 
igure (gcf) 
isp(['Press [Enter] for a transient ’,... 
response calculation’]) 
ause 
rint -deps beamfrq2 


function varargout-inputv (prompt) 
See Appendix B 
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E: SeSe 


10.7 Vibration Modes of an Elliptic Membrane 
10.7.1 Analytical Formulation 


Examples using eigenvalues and modal functions of rectangular or circular mem- 
branes were presented in chapter 9. In this section we analyze modal vibrations of 
an elliptic membrane. In this case the natural frequencies and modal functions can- 
not be obtained easily in explicit form. The problem can be formulated in elliptical 
coordinates leading to Mathieu type differential equations [74]. Library routines to 
compute these functions are not widely available; so, a different approach is em- 
ployed using least squares approximation and the MATLAB function eig. Consider 
a membrane with major and minor semi-diameters a and b. The analytic function 
z = h cosh(c) where h = Va? — b? and ¢ = £ + i n maps the rectangle defined by 
0<€< R= tanh~'(b/a), —m < n < m onto the interior of the ellipse. This 
transformation takes lines of constant € into a system of confocal ellipses and lines 
of constant 7 into hyperbolas intersecting the ellipses orthogonally. The following 
function was used to produce the elliptic coordinate plot in Figure 10.13. 


function z = elipmap(a,b,neta,nxi) 
h-sqrt(a^2-b^2); R=atanh (b/a); 
[xi,eta]=meshgrid(... 
linspace(0,R,nxi),linspace(-pi,pi,neta)); 
z=h*cosh(xiti*eta); x-real(z); y-imag(z); 
plot(x,y,'k',x',y','kt) 

title(’ELLIPTICAL COORDINATE SYSTEM’ ) 
xlabel(’x axis’), ylabel('y axis’) 

axis equal, grid off, shg 


Transforming the wave equation to (£, n) coordinates gives 


h2 
Use + Unn = —[cosh(26) — cos(2)] Un, 


and assuming separable solutions of the form 


U = f(n)g(&) sin(Q t) 


leads to 


f". g"(£) 
Fin) «& 


where A = 07h?/2. So f and g are found to satisfy the following two Mathieu type 
differential equations: 


= —A [eosh(2£) — cos(2n)], 


f") + [a — Acos2u)]f()) =0, -7< n< 7 


© 2003 by CRC Press LLC 


ELLIPTICAL COORDINATE SYSTEM 
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Figure 10.13: Elliptic Coordinate Grid 


and 
g (€) — [a — Acosh(28)]g(£) 20, Ox ESR 


where the eigenvalue parameters œ and A are determined to make f(7) have period 
25 and make g(£) vanish at £ = R. The modal functions can be written in terms of 
Mathieu functions as products of the form 


ce(n, q)Ce(E, q) 


for modes symmetric about the x-axis and 


se(n, q)Se(&. q) 


for modes anti-symmetric about the x-axis. The functions ce and se are periodic 
Mathieu functions pertaining to the circumferential direction, while Ce and Se are 
modified Mathieu functions pertaining to the radial direction. The structure of these 
functions motivates using the following series approximation for the functions for 
even modes: 


= Seon ) ar, = Soo (l — 1/2)) bi 
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The analogous approximations for the modes anti-symmetric about the x-axis are: 


N M TE 
fG) =J sin(nk) ar, g(£) 9 sin D bi. 
k=1 l=1 


Thus the expressions for both cases take the form: 


N M 
Fm) = M feln) ax and g(£) = 3 ^ i£) bi. 
k=1 1=1 
Let us choose a set of collocation points 7;, i = 1,...,n, and 6j, j = 1,...,m. 


Then substituting the series approximation for f(7) into the differential equation 
gives the following over-determined system of equations: 


N N N 
Y fe (nian +a Y fe(ni)ar — Acos(2) X fe(m)ax =0, i 1... m. 
k=1 


k=1 k=1 


Denote F as the matrix having f;,(7;) as the element in row 4 and column k. Then 
multiplying the last equation on the left by the generalized inverse of F gives a matrix 
equation of the form 

CA+aA-ADA=0D, 


where A is a column matrix consisting of the coefficients a;. A similar equation 
results when the series for g(£) is substituted into the differential equation for the 
radial direction. It reduces to 


EB-aB+AGB=0. 


The parameter a can be eliminated from the last two equations to yield a single 
eigenvalue equation 


W E'+CW 2 A(-WG'-- DW) 


where W = AB’, and the tic mark indicates matrix transposition. By addressing 
the two-dimensional array W in terms of a single index, the eigenvalues A and the 
modal multipliers defined by W can be computed using the function eig. Then the 
values of the other eigenvalue parameter o can also be obtained using the known 
A, W combinations. The mathematical developments just given are implemented 
below in a program which animates the various natural frequency vibration modes 
for an elliptic membrane. 


10.7.2 Computer Formulation 


The program elipfreq was written to compute frequencies and mode shapes for 
an elliptic membrane. The primary data input includes the ellipse semi-diameters, a 
flag indicating whether even modes, odd modes, or both are desired, the number of 
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least squares points used, and the number of terms used in the approximation series. 
Natural frequencies and data needed to produce modal surfaces are returned. The 
program also animates the various mode shapes arranged in the order of increasing 
frequency. The modules employed are described in the following table. 


elipfreq reads data, calls other computational mod- 
ules, and outputs modal plots 

frqsimpl | forms the matrix approximations of the Math- 
ieu equations and calls eigenrec to generate 
frequencies and mode shapes 

eigenrec solves the rectangular eigenvalue problem 

plotmode | generates animated plots of the modal func- 


tions 

modeshap | computes modal function shapes using the 
approximating function series 

funcxi approximating series functions in the xi vari- 
able 

funceta approximating series functions in the eta vari- 
able 


The accuracy of the formulation developed above was assessed by 1) comparison 
with circular membrane frequencies known in terms of Bessel function roots and 
2) results obtained from the commercial PDE toolbox from MathWorks employing 
triangular finite element analysis. The elliptic coordinate formulation is singular for 
a circular shape, but a nearly circular shape with a — 1 and b — 0.9999 causes no 
numerical difficulty. Figure 10.14 shows how well frequencies from elipfreq with 
nlsq=[200,200] and nfuns=[30,30] compare with the roots of J,,(r). The first fifty 
frequencies were accurate to within 0.8 percent and the first one hundred frequencies 
were accurate to within 5 percent. The function pdetool from the PDE toolbox was 
also used to compute circular membrane frequencies with a quarter circular shape 
and 2233 node points. The first two hundred even mode frequencies from this model 
were accurate to within 1 percent for the first one hundred frequencies and to within 7 
percent for the first 200 frequencies. Since the function pdetool would probably give 
comparable accuracy for an elliptic membrane, results from elipfreq were compared 
with those from pdetool using an ellipse with a = 1 and b = 0.5. The percent 
difference between the frequencies from the two methods appears in Figure 10.15. 
This comparison suggests that the first fifty frequencies produced by elipfreq for the 
elliptic membrane are probably accurate to within about 2 percent. 

The various modal surfaces of an elliptic membrane have interesting shapes. The 
program elipfreq allows a sequence of modes to be exhibited by selecting vectors of 
frequency numbers such as 1:10 or 10:2:20. Two typical shapes are shown in Figures 
10.16 and 10.17. The particular modes shown have no special significance besides 
their esthetic appeal. A listing of some interactive computer output and the source 
code for elipfreq follows. 
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COMPARING MEMBRANE FREQUENCIES FOR (a,b) = (1, 0.9999) WITH A CIRCLE 
10 T T T T T T T T T 


Percent Difference 
i 


10 J 1 J fi 1 J 1 1 J 
0 10 20 30 40 50 60 70 80 90 100 


Frequency Number 


Figure 10.14: Comparing Elipfreq Results with Bessel Function Roots 


COMPARISON OF RESULTS FROM ELIPFREQ AND PDETOOL 
10 T T T T T T T 


percent difference 
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frequency number 


Figure 10.15: Comparing Elipfreq Results with PDE Toolbox 
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ODD MODE 98, OMEGA = 43.85, B/A=0.5 
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Figure 10.16: Surface for Anti-Symmetric Mode Number 98 


© 2003 by CRC Press LLC 


EVEN MODE 99, OMEGA = 41.37, B/A - 0.5 


x axis 


y axis 


Figure 10.17: Surface for Symmetric Mode Number 99 
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Interactive Input-Output for Program elipfreq 


>> elipfreq; 


VIBRATION MODE SHAPES AND FREQUENCIES 
OF AN ELLIPTIC MEMBRANE 


Input the major and minor semi-diameters > ? 1,.5 


Select the modal form option 
1<=>even, 2«-»odd, 3<=>both > ? 1 


The computation takes awhile. Please wait. 


44.1 seconds. 
312 
116.979 


Computation time 
Number of modes 
Highest frequency 


Press return to see modal plots. 


Give a vector of mode indices (try 10:2:20) 
enter 0 to stop > ? 1 


Give a vector of mode indices (try 10:2:20) 
enter 0 to stop > ? 2:6 


Give a vector of mode indices (try 10:2:20) 
enter 0 to stop > ? [20 25 30] 


Give a vector of mode indices (try 10:2:20) 
enter 0 to stop > ? 0 
>> 


Elliptic Membrane Program 


function [frqs,modes,indx,x,y,alpha,cptim]-elipfreq(... 
a,b,type,nlsq,nfuns,noplot) 

» ^ Lfrqs,modes,indx,x,y,alpha,cptim]-elipfreq(... 

A a,b,type,nlsq,nfuns,noplot) 


= 


ROOM 
= 


. ^ This function computes natural frequencies and mode 
: 4 Shapes for an elliptical membrane. Modes that are 

. 4^ symmetrical or anti-symmetrical about the x axis are 
included. An approximate solution is obtained using 


o do) m 
= 


e 
e 
ex 


© 2003 by CRC Press LLC 


25: 


. ^ a separation of variables formulation in elliptical 
; ^ coordinates. 


: 4 a,b - the ellipse major and minor semi- 
Sh diameters along the x and y axes 
. 4 nlsq - two-component vector giving the number 
ih of least square points in the eta and 
IA xi directions 
. ^ nfuns - two-component vector giving the number of 
2A functions used to solve the differential 
zh equations for the eta and xi directions. 
| % type - use 1 for even modes symmetric about the 
22: h x-axis. Use 2 for odd modes anti- 
23: h symmetric about the x-axis. Use 3 to 
"i combine both even and odd modes. 
hh 
: 4 frqs - a vector of natural frequencies 
27: h arranged in increasing order. 
2s: ^4 modes - a three dimensional array in which 
29: h modes(:,:,j) defines the modal 
a deflection surface for frequency 
sh frqs(j). 
ie indx - a vector telling whether each 
D mode is even (1) or odd (2) 
i ems - curvilinear coordinate arrays of 
oe points in the membrane where modal 
36: h function values are computed. 
3: ^ alpha - a vector of eigenvalue parameters in 
38: h the Mathieu equation: u?'(eta)*... 
39: f (alpha-lambda*cos(2*eta))*u(eta)-0 
SAh where lambda-(h*freq)^2/2 and 
:% h=atanh (b/a) 
tA cptim - the cpu time in seconds used to 
Y form the equations and solve for 
D eigenvalues and eigenvectors 
: ^ noplot - enter any value to skip mode plots 
: ^ User m functions called: 
(P frqsimpl eigenrec plotmode 
Ch modeshap funcxi funceta 
: if nargin-- 
disp(’ ?) 
disp(C VIBRATION MODE SHAPES AND FREQUENCIES’) 
disp(’ OF AN ELLIPTIC MEMBRANE uU 
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disp(’ ?) 
n1sq-[300,300]; nfuns-[25,25]; 


v-input([?'Input the major and minor ’,... 

>semi-diameters > ? ’],’s’); 
veeval([’[’,v,’]’?]); a=v(1); b=v(2); disp? ’) 
disp(’Select the modal form option’) 
type=input(... 

?1<=>even, 2<=>odd, 3<=>both > ? ?); 

dispQ"*) 
disp([’The computation takes awhile.’,... 

^ PLEASE WAIT.?]) 


;: end 


. if type ==1 | type--2 % Even or odd modes 
. [frqs,modes,x,y,alpha,cptim]=frqsimpl(... 
. a, b, type,nlsq,nfuns); 


indx=ones(length(frqs) ,1)*type; 


; else % Both modes 


[frqs,modes,x,y,alpha,cptim]-frqsimpl(... 
a,b,1,nlsq,nfuns); 

indx=ones(length(frqs) ,1); 

[frqso,modeso,x,y,alphao,cpto]=frqsimpl(... 
a,b,2,nlsq,nfuns) ; 

frqs=[frqs;frqso]; alpha=[alpha;alphao] ; 
modes=cat (3,modes ,modeso) ; 

indx-[indx;2*ones(length(frqso),1)]; 

[frqs,k]-sort(frqs); modes-modes(:,:,k); 

indx-indx(k); cptim=cptim+cpto; 


s end 
; if nargin--6, return, end 
. ^ Plot a sequence of modal functions 


. neig=length(frqs) ; 
: dispC 7), disp(['Computation time = ”’,... 


num2str(sum(cptim)),’ seconds.’]) 


. disp([?^Number of modes = ",num2str(neig)]); 
. disp(['Highest frequency = ’,. 


num2str(frqs(end))]), disp 2 


. disp(?Press return to see modal plots.) 
. pause, plotmode(a,b,x,y,frqs,modes,indx) 
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: function [frqs,Modes,x,y,alpha,cptim]=frqsimpl(... 


a,b, type,nlsq,nfuns) 


3 ^ Lfrqs,Modes,x,y,alpha,cptim]-frqsimpl(... 


4 a,b,type,nlsq,nfuns) 
"^ Rc du M M MM MP E E MEM EO re Cl 
. 4 a,b  - ellipse major and minor semi-diameters 
. 4 type - numerical values of one or two for modes 
(4 symmetric or anti-symmetric about the x axis 
. 4 nlsq - vector [neta,nxi] giving the number of least 
% square points used for the eta and xi 
% directions 
^ nfuns - vector [meta,mxi] giving the number of 
y, approximating functions used for the eta and 
ie xi directions 
^ frqs - natural frequencies arranged in increasing 
y^ order 
^ Modes - modal surface shapes in the ellipse 
^ x,y  - coordinate points in the ellipse 
. 4 alpha - vector of values for the eigenvalues in the 
(4 Mathieu differential equation: 
v u’? (eta)+(alpha-lambda*cos (2*eta) )*u(eta)=0 


. 4 cptim - vector of computation times 


s: 4 User m functions called: funceta funcxi 
have eigenrec modeshap 
: if nargin-- 

; a=cosh(2); b=sinh(2); type=1; 


nlsq-[200,200]; nfuns=[30,30] ; 


: end 

: h=sqrt(a*2-b*2); R=atanh(b/a); neta-nlsq(1); alpha-[]; 
. nxi-nlsq(2); meta-nfuns(1); mxi-nfuns(2); 

; eta=linspace(0,pi,neta)’; xi=linspace(0,R,nxi)’; 

. [Xi,Eta]=meshgrid(xi,eta); z=h*cosh(Xi+i*Eta) ; 

; x=real (z); y=imag(z); cptim-zeros(1,3); 


3: ^ Form the Mathieu equation for the circumferential 
3: ^ direction as: A*Et+talpha*E-lambda*B*E=0 

3» tic; [Veta,A]-funceta(meta,type,eta); 

. A=Veta\[A,repmat (cos(2*eta),1,meta).*Veta]; 

;: B2A(: ,metati:end); A=A(:,1:meta); 


: 4 Form the modified Mathieu equation for the radial 
; ^ direction as: P*F-alpha*F*lambda*Q*F-0 
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[Vxi,P]-funcxi(a,b,mxi,type,xi); 


; P=Vxi\[P,repmat (cosh(2*xi) ,1,mxi) .*Vxi] ; 
;: Q=P(: ,mxi*i:end); P=P(:,1:mxi); 
: cptim(1)=toc; tic 


5: ^ Solve the eigenvalue problem. This takes most 
5: 4 of the computation time 

s: [frqs,modes]-eigenrec(P',A,-Q?,B); 

5: ^ Keep only half of the modes and frequencies 
s nmax-fix(length(frqs)/2); frqs-frqs(1:nmax); 

ss, modes=modes(:,:,1:nmax); cptim(2)-toc; 


st: ^ Compute values of the second eigenvalue 
ss: ^ parameter in Mathieu’s equation 

s» alpha-zeros(1,nmax); tic; 

; S=size(modes); s=s(1:2); Vxi-Vxi'; 


2: ^ Obtain the modal surface shapes 

: Neta=91; Nxi-25; Modes-zeros(Neta,Nxi,nmax); 

4. for k-1:nmax 

s Mk=modes(:,:,k); [dmk,K]-max(abs(Mk(:))); 

& [I,J]=ind2sub(s,K); Ej=Mk(:,J); 

z: alpha(k)=(B(1, :) *Ej*f£rqs (k) -ACI, :) *Ej) /MK(K) ; 

s: [Modes(:, :, k) , x, y] »modeshap(a, b, type,Mk,Nxi,Neta); 
. end 

; frgs-sqrt (2*frqs)/h; cptim(3)-toc; 


: function [eigs,vecs,Amat,Bmat]-eigenrec(A,B,C,D) 
s ^ Leigs,vecs,Amat,Bmat]-eigenrec(A,B,C,D) 

» ^ Solve a rectangular eigenvalue problem of the 
4 form: X*A+B*X=lambda* (X*C*D*X) 


: 4 A,B,C,D - square matrices defining the problem. 


:% A and C have the same size. B and D 

Es have the same size. 

| 4 eigs - vector of eigenvalues 

: 4 vecs - array of eigenvectors where vecs(:,:,j) 
rA contains the rectangular eigenvector 
cae for eigenvalue eigs(j) 

; ^ Amat, 

. 4 Bmat - matrices that express the eigenvalue 
m problem as Amat*V=lambda*Bmat*V 
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; n=size(B,1); 
; Amat-zeros(N,N); Bmat-Amat; kn-1:n; km-1:m; 
: for i-1:n 


m-size(A,2); s-[n,m]; N-nx*m; 


IK-sub2ind(s,ix*ones(1,m),km); 


Bikn-B(i 


kn); Dikn-D(i,kn); 
for j-1:m 


I-sub2ind(s,i,j); 


Amat(I, 


IK)=A(km,j)’; Bmat(I,IK)-C(km,j)'; 


KJ-sub2ind(s,kn, j*ones(1,n)); 


Amat (I 
Bmat (I 
end 


; end 
s L[vecs,eigs]=eig(Bmat\Amat) ; 

: [eigs, k] "sort (diag(eigs)) ; 

s vecs-reshape(vecs(:,k),n,m,N) ; 


,»KJ)=Amat (1,KJ)+ Bikn; 
,KJ)-Bmat(I,KJ)* Dikn; 


: function plotmode(a,b,x,y,eigs,modes, indx) 


^ plotdmode(a,b,x,y,eigs,modes, indx) 


% This function makes animated plots of the 
^ mode shapes of an elliptic membrane for 
^ various frequencies 


^ a,b - 
h% x,y E 


. 4 eigs  - 
. 4 modes - 


; 4 indx - 


: boa=[’, 
: while 1 
jlim=(]; 


major and minor semi-diameters 
arrays of points defining the 
curvilinear coordinate grid 
vector of sorted frequencies 
array of modal surfaces for 

the corresponding frequencies 
vector of indices designating 
each mode as even (1) or odd (2) 


s range=[-a,a,-b,b,-a,al] ; 
; nf=25; ft=cos(linspace(0,4*pi,nf)) ; 
B/A = ?,num2str(b/a,4)]; 


while isempty(jlim), disp(’ ?) 
disp([’Give a vector of mode ’, 


'indices (try 10:2:20) > ? D; 


jlim-input(?(input 0 to stop > ? ?); 


end 
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if any(jlim--0) 
dispC ?), disp?’ All done’), break, end 
for j=jlim 
if indx(j)==1, type=’EVEN’; f=1; 
else, type -'ODD ’; f--1; end 
u=a/2*modes(:,:,j); 


for kk=1:nf 
surf (x,y, ft (kk) *u) 
axis equal, axis(range) 
xlabel(’x axis’), ylabel(’y axis’) 
Zlabel(’u(x,y)’) 
title([type,’ MODE ’,num2str(j),... 
^; OMEGA = ’ ,num2str(eigs(j) ,4) ,boa] ) 
4colormap([127/255 1 212/255]) 
colormap([1 1 0]) 
drawnow, shg 

end 

pause(1); 

end 


; function [u,x,y]=modeshap(... 


a,b,type,modemat,nxi,neta,H) 


: 4 [u,x,yl-modeshap(a,b,type,modemat,nxi,neta,H) 


: 4 This function uses the eigenvectors produced by 
s ^ the rectangular eigenvalue solver to form modal 
. ^ surface shapes in cartesian coordinates. 


267: h a,b - major and minor semi-diameters 

268: ^4 type - 1 for even, 2 for odd 

269: 4 modemat - eigenvector matrix output by eigenrec 
27: 4 nxi,neta - number of radial and circumferential 
2n h coordinate values 

272: 4H - maximum height of the modal surfaces. 
273: h The default value is one. 

274: h U,X,Y - modal surface array and corresponding 
275: h cartesian coordinate matrices. u(:,:j) 
276: h gives the modal surface for the j’th 
277: h natural frequency. 


: if nargin<7, H=1; end 
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280: 
. h2sqrt(a^2-b^2); r-atanh(b/a); x-[]; y-[]; 

. xi-linspace(0,r,nxi); eta-linspace(-pi,pi,neta); 
3: if nargout>1 


if nargin<6, neta=81; end; if nargin<5, nxi=22; end 


[Xi,Eta]=meshgrid(xi,eta); z=h*cosh(Xiti*Eta) ; 
x=real(z); y=imag(z) ; 


; end 

. [Neta,Nxi]=size(modemat) ; 

. mateta-funceta(Neta,type,eta); 

. matxi-funcxi(a,b,Nxi,type,xi); 

; u=mateta*xmodemat*matxi’; [umax,k]=max(abs(u(:))); 
; u=H/u(k) *u; 


: function [f,f2]-funcxi(a,b,n,type,xi) 
"^ [£,f2]=funcxi(a,b,n,type,xi) 


: 4 This function defines the approximating functions 
: ^ for the radial direction 


. 4 a,b - ellipse major and minor half-diameters 
^n - number of series terms used 

3 ^ type - 1 for even valued, 2 for odd valued 

O4 xi - vector of radial coordinate values 

; 4 £,£2 - matrix of function and second derivative 
A values 


; xi-xi(:); nxi-length(xi); R=atanh(b/a) ; 
; if type--1, N-pi/R*(1/2:n); f=cos(xixN) ; 
: else, N-pi/R*(1:n); f-sin(xi*N); end 

. f2--repmat(N.^2,nxi,1).*f; 


. function [£,f£2]-funceta(n,type,eta) 


^ [f,f2]-funceta(n,type,eta) 


: 4 This function defines the approximating functions 
. 4 for the circumferential direction 


^n - number of series terms used 
. 4 type - 1 for even valued, 2 for odd valued 
O04 xi - vector of circumferential coordinate values 


; 4 £,£2 - matrix of function and second derivative 
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T values 


; eta=eta(:); neta-length(eta); 

; if type--1, N-0:n-1; f=cos(eta*N) ; 
; else, N-1:n; f=sin(eta*N); end 

. f2--repmat(N.^2,neta,1).*f; 
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Chapter 11 


Bending Analysis of Beams of General Cross 
Section 


11.1 Introduction 


Elastic beams are important components in many types of structures. Conse- 
quently methods to analyze the shear, moment, slope, and deflection in beams with 
complex loading and general cross section variation are of significant interest. A 
typical beam of the type considered is shown in Figure 11.1. The study of Euler 
beam theory is generally regarded as an elementary topic dealt with in undergradu- 
ate engineering courses. However, simple analyses presented in standard textbooks 
usually do not reveal difficulties encountered with statically indeterminate problems 
and general geometries [115]. Finite element approximations intended to handle ar- 
bitrary problems typically assume a piecewise constant depth profile and a piecewise 
cubic transverse deflection curve. This contradicts even simple instances such as a 
constant depth beam subjected to a linearly varying distributed load which actually 
leads to a deflection curve which is a fifth order polynomial. Exact solutions of more 
involved problems where the beam depth changes linearly, for example, are more 
complicated. Therefore, an exact analysis of the beam problem is desirable to handle 
depth variation, a combination of concentrated and distributed loads, and static inde- 
terminacy providing for general end conditions and multiple in-span supports. The 
current formulation considers a beam carrying any number of concentrated loads 
and linearly varying distributed loads. The equations for the shear and moment in 
the beam are obtained explicitly. Expressions for slope and deflection are formulated 
for evaluation by numerical integration allowing as many integration steps as neces- 
sary to achieve high accuracy. A set of simultaneous equations imposing desired 
constraints at the beam ends and at supports is solved for support reactions and any 
unknown end conditions. Knowledge of these quantities then allows evaluation of 
internal load and deformation quantities throughout the beam. The analytical formu- 
lation is implemented in a program using a concise problem definition specifying all 
loading, geometry, and constraint conditions without reference to beam elements or 
nodal points as might be typical in a finite element formulation. The program and 
example problem are discussed next. 
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w2 


Figure 11.1: General Beam 


11.1.1 Analytical Formulation 


Solution of beam problems utilizes some mathematical idealizations such as a con- 
centrated load, which implies infinite load intensity acting over an infinitesimal area. 
Also of importance are linearly varying distributed loads, or ramp loads. Treatment 
of these entities is facilitated by use of singularity functions [9]. The singularity 
function of order n is denoted by < x — xo >” and is defined as 


0, T < To 


< T — To >”= 
i (x — zo)" m2 mo. 


For n > 0, the function satisfies 


< £ — zo >"! 


T 
< z — to >” dz = 
I i n+1 


The special case where n = —1 is appropriate for describing a concentrated load. 
The term < x — xo >T! means the limit as € — 0 of the following function 


£ < xo, 
zo € x < (xo +€), 
xz (xo 4 €). 


< y — To 2-2 


O aJ © 


Consequently, in the limit as e approaches zero the integral becomes 
x 
i: «z—zo9» |de= «z-ag»". 
0 


Analyzing the loads and deformations in the beam requires computation of the shear, 
moment, slope, and deflection designated as v(x), m(x), y'(x), and y(x). The beam 
lies in the range 0 € x < L. A total of four end conditions are imposed at x = 0 
and x — L. Normally, two conditions will be specified at each end; so, two un- 
known conditions applicable at x — 0 need to be found during the solution process. 
Along with the end conditions, interior supports may exist at x = r}, 1 < 3 < Ns. 
Displacements y, will occur at supports, and the reactions R,, as well as four end 
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conditions, needed to cause the deflections will have to be determined during the 
analysis. Within the beam span, the applied loading will consist of known external 
loads described as we(x) and the support reactions. Fundamentals of Euler beam 


theory developed in standard textbooks [9, 102] imply the following differential and 
integral relations: 


I) Load 
Ns 
v'(z) = we(x) + XOR, «g—r» 
j=l 
II) Shear 


Ns 
v(x) = vo + velz) +R, <zr-r;>, 
—1 


II) Moment and Second Derivative 


m'(x) =v, 


Ns 
m(x) = mo + vox + me(x) + SOR, «g—r,» 
j=l 


Ns 
SEG aS Ieee >| | 
j=l 
1 
M) Fey 
IV) Slope 
y'(x) = yo + mo | k(a) dz + w f x k(x) dx + 
0 
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V) Deflection 


ule) edema f [x x) dz da + 


wf f eke Medos | f ka x) dx dx + 


Fenelon 
= o Jo 


where E(x)I(x) is the product of the Young's modulus and the cross section mo- 
ment of inertia, yo, yo, Vo, Mo, are the left-end values of the deflection, slope, shear 


and moment respectively. The property k(x) will be spatially variable unless E is 
constant, which yields the following simple formulas 


EIy'(x) = ED e mace S [P me(x) dx + = rr «z—r,»?, 
2 1 


2 3 £ 
Ely(x) = EI (yo + yr) +7 4- 17 Ji "E melz) da dz+ 
0 


2 6 
N 
14. 
6 J R,«r-—r, 2 
j=l 


The external loading conditions employed here can handle most practical situations. 
It is assumed that several concentrated loads F, act at positions fj, 1 < j < Ny. 
Distributed loads are described by linearly varying ramp loads. A typical ramp load 
starts at position p, with intensity P, and varies linearly to magnitude Q, at position 
q,. The ramp load is zero unless p, < x < q}. A total of N, ramp loads may be 
present. Instances where P, — Q, can also occur, implying a uniformly distributed 
load. The general external loading chosen can be represented as 


Ny 
=\°Fj<2-f,> t 
j=l 


Nr 
MP <zr-p Q <rt-q > + 
j=l 
S,(<2—p, —<2-q, )] 
where 
peer 
q} — P) 
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and each summation extends over the complete range of pertinent values. Similarly, 
integration using the properties of singularity functions yields 


Ny 
velz) = F, <x- fi> + 


j=l 
N, 
[P, < £- p; >! -Q < £- q >t + 
j=l 
S) 2 2 
3 (<-> —-«z-94 7) 
and 
Ny 
mels) = Fy <s- f> + 
j=l 
N, 
LIP 
[Ig escas S each 
= 2 2 
S; 3 3 
$(«z-pn» -«zs-g») 


The single and double integrals given earlier involving m «(x) and k(x) can easily 
be evaluated exactly when EI is constant, but these are not needed here. Since 
k(a) will generally be spatially variable in the target problem set, the integrations 
to compute y’(x) and y(x) are best performed numerically. Leaving the number of 
integration increments as an independent parameter allows high accuracy evaluation 
of all integrals whenever this is desirable. Typically, problems using several hundred 
integration points only require a few seconds to solve using a personal computer. 

Completing the problem solution requires formulations and solution of a system 
of simultaneous equations involving vo, mo, yo, yo. Ri, ..., Rn,. The desired 
equations are created by specifying the displacement constraints at the supports, as 
well as four of eight possible end conditions. To present the equations more concisely 
the following notation is adopted: 


ra k(x) dx = Ky(a E [x x) da dx = K»(a), 
[ eka) ae = a enn and fe 
EZO x)dz = I(x 1 ff meter x) dz dx = h(x), 


a « z—r, 5»! k(x) dz = J(z,r,) 
0 


f | <2-r,> kla) dede = 3(a,r), 
o Jo 
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and it is evident from their definitions that both J4(zx,r;) and Jo(z,r,) both equal 
zero for £ < r}. 

At a typical support location r,, the deflection will have an imposed value y,. 
Consequently, the displacement constraints require 


N 


yo ^ ro + Kalra) mo + Lo(r) vo 97 Ja(ru rj) By = — (rr) 
J=1+1 


for 1 < € Ng. The remaining four end conditions can specify any legitimate com- 
bination of conditions yielding a unique solution. For example, a beam cantilevered 
at x = 0 and pin supported at x = L would require y(0) = 0, y’(0) = 0, m(L) = 0, 
and y(L) = 0. In general, conditions imposed at x = 0 have an obvious form 
since only vo, Mo, yo. or y, are explicitly involved. To illustrate a typical right end 
condition, let us choose slope, for example. This yields 


Ns 
yo + yo + Ki(L) mo + Li(L) vo + X (L, r) Ry = y (D) - (L). 
S 


Equations for other end conditions have similar form, and all eight possibilities are 
implemented in the computer program listed at the end of the chapter. Once the 
reactions and any initially unknown left-end conditions have been determined, load 
and deformation quantities anywhere in the beam can be readily found. 


11.1.2 Program to Analyze Beams of General Cross Section 


A program to solve general beam problems was written which tabulates and plots 
the shear, moment, slope, and deflection. The driver program vdb defines the data, 
calls the analysis functions, and outputs the results. Six functions that implement the 
methods given in this section were written. Understanding the program details can 
best be achieved by studying the code closely. The program was checked extensively 
using examples from several texts and reference books. The three span beam having 
parabolically tapered haunches shown in Figure 11.2 was analyzed previously by 
Arbabi and Li [5]. The program vdb was used to analyze the same problem and 
produces the results in Figure 11.3, which agree well with the paper. 

We believe that the computer program is general enough to handle a wide variety 
of practical problems. Some readers may want to extend the program by adding 
interactive input or input from a data file. Such a modification is straightforward. 


11.1.3 Program Output and Code 
Output from Arbabi and Li Example 


Analysis of a Variable Depth Elastic Beam 


Title: Problem from Arbabi and Li 
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Slope 


Figure 11.2: Parabolic Beam from Arbabi and Li 
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Figure 11.3: Results for Arbabi and Li Example 
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Beam Length: 
Number of integration segments: 301 
Print frequency for results: 10 


Interior Supports: (2 


2 


X-location 
1.0000e+000 
2.0000e+000 


Concentrated Forces: 


X-location 


3 


) 
Deflection 


0.0000e+000 
0.0000e+000 


(1) 


5.0000e-001 
Ramp loads: (1) 
X-start 
1.0000e+000 
End conditions: 
End Function 
left slope 
left deflection 
right slope 
right deflection 


EI 


X-start 


-1.0000e+000 


0.0000e+000 
0.0000e+000 
0.0000e+000 
0.0000e+000 


EI-value 


296 
297 
298 
299 
300 


0.0000e+000 
1.0101e-002 
2.0202e-002 
3.0303e-002 
4.0404e-002 


.9596e«000 
.9697e«000 
.9798e«000 
.9899e«000 
.0000e«000 


C) NO NON ON 


Solution time was 0.5 


7.9976e+000 
7.5273e+000 
7.0848e+000 
6.6688e+000 
6.2776e+000 


Material deleted for publication 


-2776e+000 
-6688e+000 
.0848e«000 
.52773e«000 
.9976e«000 


- -1-100 


5 secs. 


Reactions at Internal Supports: 


Reaction 


782e+000 


X-location 
1 1.0 
2 4.7 


Table of Results: 


506e-001 
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2.0000e+000 -1.0000e+000 


Q.€ 0 OO Cx Oo 0 © 


[o] 
[o 


ONNNNNNN NY 


WO O0 -2OY U1 i CO PO ENO ON OY U1 AUN EB. EO. 10 COO -1 OY U1 4 00 NO EB. OO 


Moo oo oo oe - od 
OO OO CO OO OO OO OO OO 0 


nmn 


.0309e-001 
.0309e-001 
.0918e-003 
-9.6908e-002 
-1.9691 
-2.9691 
7.8151 
1e-002 
1e-002 
1e-002 
1e-002 
1e-002 
Le-002 
Le-002 
Le-002 
1e-002 
1e-002 


Ul Ul OU! OI U! OU! U! OU! UI 


e-001 
e-001 
e-002 


Variable Depth Beam Program 


um 


9 zt ge cm 


e 


10: 
11: 
12: 
13: 
14: 


m coger ce 


function vdb 
^ Example: vdb 


2 
3 
2 


s 


-4 


3s 
"3s 


-2 


eu 
ST. 


7 


WN F oo 


.7415e-001 
.2166e-001 
.9164e-002 
.6670e-002 
.5824e-002 
.8318e-002 
.0812e-002 
.6940e-003 
.4200e-002 
.0171e-001 
.4921e-001 
.3903e-002 
.8593e-002 


L.3284e-002 
L.2025e-002 


.7334e-002 
.2643e-002 
.7953e-002 
.3262e-002 
1429e-002 
.6120e-002 
8305e-002 
0490e-002 
.2675e-002 
4860e-002 
0445e-003 
.7058e-004 
.5857e-003 
.6401e-002 
.4216e-002 
.2031e-002 


.0000e«000 
.4859e-003 - 
.3262e-003 - 
.4251e-003 - 
.5761e-003 - 
.5680e-004 - 
.6976e-003 - 
.1119e-003 - 
.6441e-003 - 
.3302e-003 - 
.2242e-003 - 
.9439e-004 
.8814e-003 -1. 
.3574e-003 - 
.2883e-003 - 
.3015e-003 -1. 
.5694e-004 -1. 
.0625e-003 -1 
.1954e-003 - 
.2843e-003 - 
.8358e-003 -1. 
.1202e-003 
.0801e-003 
.2881e-004 
.9898e-004 
.74477e-003 
.0539e-003 
.7105e-003 
.0840e-003 
.7454e-004 
.4409e-016 - 


Ae œ 


NN ONA O0 - -d10O C 


.2494e-001 
.2494e-001 
.2494e-001 
.2494e-001 
5.2494e-001 
-4.7506e-001 
-4.7506e-001 
-4.7506e-001 
-4.7506e-001 
-4.7506e-001 
6.0309e-001 
5.0309e-001 
4.0309e-001 
3.0309e-001 
2 
1 
3 


.0000e«000 


.1943e-004 
.0996e-004 
.1612e-003 
.8965e-003 
.3003e-003 
.9998e-003 
.3258e-003 
.7385e-004 
.2402e-004 


.4286e-017 
.3707e-005 
6165e-004 
.3250e-004 
.8078e-004 
3242e-003 
4078e-003 
.2125e-003 
.3907e-004 
.0860e-004 
1102e-016 
.5021e-004 
.1308e-004 
.5555e-004 
.5597e-004 
.2865e-004 
.3228e-004 
.4008e-004 
.9549e-005 
.2493e-005 
.2204e-016 


^ This program calculates the shear, moment, 
^ Slope, and deflection of a variable depth 
^ indeterminate beam subjected to complex 
^ loading and general end conditions. The 
^ input data are defined in the program 

^ statements below. 


^ User m functions required: 
p bmvardep, extload, lintrp, oneovrei, 
^  sngf, trapsum 


© 2003 by CRC Press LLC 


: clear all; Problem=1; 
: if Problem == 


Title=[’Problem from Arbabi and Li']; 
Printout-10; % Output frequency 
BeamLength-3; % Beam length 
NoSegs=301 ; ^ # of beam divisions for 
^ integration 
^ External concentrated loads and location 
ExtForce- [-1]; ExtForceX-[.5]; 
^ External ramp loads and range 
^ q1 q2 xi. x2 
ExtRamp-[-1 -1 1 2]; 
^ Interior supports: initial displacement 
^ and location 
IntSupX- [1; 2]; IntSupDelta-[0; 0]; 
^ End (left and right) conditions 
EndCondVal- [0; 0; 0; 0]; ^ magnitude 
^ i-shear,2-moment,3-slope,4-delta 
EndCondFunc-[3; 4; 3; 4]; 
^ 1=left end,2-right end 
EndCondEnd- [1; 1; 2; 2]; 
^ EI or beam depth specification 
ElorDepth-1; ^ 1-EI values specified 
^ 2-depth values specified 
if EIorDepth -- 
^ Discretize the parabolic haunch for the 
^ three spans 
Width-1; E-1; a=0.5°2; Npts=100; 
hi=0.5; ki-1; x1=linspace(0,1,Npts) ; 
h2=1.5; k2-1; x2=linspace(1,2,Npts) ; 
h3=2.5; k3-1; x3-linspace(2,3,Npts); 
yi-(xi-hi).^2/a*kl; y2-(x2-h2).^2/a*k2; 
y3-(x3-h3).^2/a*k3; 
EIx=[x1 x2 x3]’; h-[y1 y2 y3]’; 
EIvalue-E*Width/12*h.^3; 
mn-min(EIvalue); EIvalue-EIvalue./mn; 
else 
^ Beam width and Young's modulus 
BeamWidth-[]; BeamE-[]; Depth-[]; DepthX-[]; 
end 


elseif Problem -- 


Title=[’From Timoshenko and Young,’, 
> p 434, haunch beam’]; 
Printout=12; NoSegs=144*4+1; BeamLength=144; 
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ExtForce-[]; ExtForceX-[]; 

ExtRamp-[-1 -1 0 108]; 

IntSupX-[36; 108]; IntSupDelta=[0; 0]; 

EndCondVal-[0; 0; 0; 0]; 

EndCondFunc-[2; 4; 2; 4]; 

EndCondEnd- [1; 1; 2; 2]; EIorDepth-2; 

if EIorDepth -- 
EIvalue=[]; EIx=[]; 

else 
BeamWidth=[1]; BeamE-[1]; 
^ Discretize the parabolic sections 
a=36°2/5; k=2.5; hi=0; h2=72; h3=144; 
N1=36; N2=72; N3=36; 
xi-linspace( 0, 36,N1); yli-(xi-h1).^2/a*k; 
x2-linspace( 36,108,N2); y2-(x2-h2).^2/a*k; 
x3-linspace(108,144,N3); y3-(x3-h3).^2/a*k; 
Depth=[y1 y2 y3]’; DepthX-[x1 x2 x3]'; 
^ Comparison values 
I-BeamWidth*Depth.^3/12; Imin-min(I); L1=36; 
ki-BeamE*Imin/Li1; k2-k1/2; k3-k1; 
t0=10.46/k1; t1=15.33/k1; t2=22.24/k1; 
t3=27 .95/k1; 
fprintf(’\n\nValues from reference’) ; 
fprintf (°\n Theta (x= 0): %412.4e’,t0); 
fprintf (°\n Theta (x= 36): 412.4e’,t1); 
fprintf( Nn Theta (x-108): %12.4e’ ,t2); 
fprintf( Nn Theta (x=144): %12.4e\n’ ,t3); 

end 


; end 


. ^ Load input parameters into matrices 

: Force- [ExtForce,ExtForceX]; 

. NoExtForce-length(ExtForce); 

: [NoExtRamp,ncol]-size(ExtRamp); 

; IntSup- [IntSupDelta,IntSupX]; 

s NoIntSup-length(IntSupX); 

; EndCond=[EndCondVal , EndCondFunc , EndCondEnd] ; 
; if ElorDepth == 


BeamProp-[]; NoEIorDepths-length(EIx); 
EIdata-[EIvalue EIx]; 


; else 


BeamProp-[BeamWidth BeamE]; 
NoEIorDepths-length(DepthX); 
EIdata-[Depth DepthX]; 


; end 
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. 4 more on 


; ^ Output input data 


: labeli-[?shear >; >moment ee 
> slope >;? deflection’ ]; 
: label2-[?left ’ p P right ’]; 
. fprintf(’\n\nAnalysis of a Variable Depth ?); 
. fprintf(’Elastic Beam’); 
: fprintf (? \n--------------------------------— DE 
: fprintf (?--------- D 
: fprintf ?\n\n?’); 
: disp(['Title: ? Title]); 
: fprintf... 
(’?\nBeam Length: ^g, 
BeamLength) ; 
: fprintf... 


(?\nNumber of integration segments: %g’, 
NoSegs) ; 


: fprintf... 


(?\nPrint frequency for results: ^g, 
Printout); 


: fprintf(’\n\nInterior Supports: (%g)’, 


NoIntSup) ; 

: if NoIntSup > 0 
fprintf(’\n | # X-location Deflection’); 
fprintf(’?\n | --- ------------ ------------ J; 


for i=1:NoIntSup 
fprintf(’?\n  |44.0f %12.4e %12.4e’, 
i, IntSup(i,2) ,IntSup(i,1)); 
end 


36: end 
35 fprintf(’\n\nConcentrated Forces: (Ag), 


NoExtForce); 


; if NoExtForce > 0 


fprintfC Nn | # — X-location Force?); 
fprintf? Nu. | ee ------------ ------------ >); 
for i=1:NoExtForce 
fprintf(’?\n |44.0f %12.4e %12.4e’, 
i,Force(i,2),Force(i,1)); 
end 


; end 
; fprintf(’\n\nRamp loads: (/g)’, NoExtRamp); 
: if NoExtRamp > 0 


fprintfCNn | # X-start Load’); 
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fprintf(’ X-end Load’); 
fprintf C \n | --- ------------ ------------ »)).; 
fprintf ( _____ -LL ) ) ; 

for i-1:NoExtRamp 


54: fprintf(’?\n |44.0f %12.4e 412.4e ^, 

55: i,ExtRamp(i,3),ExtRamp(i,1)); 

56: fprintf (^12. 4e %12.4e’, .. 

57: ExtRamp(i,4), ExtRamp(i, 2)); 

ss end 

so: end 

oo: fprintf(’\n\nEnd conditions:?); 

6: fprintf(’\n | End Function Value’); 
o» fprintf(’\n 7); 

6: fprintf? | ------ ---------- ------------ \n’); 
64: for i=1:4 

65 j=EndCond(i,3); k-EndCond(i,2); 

66 strg=sprintf(? %12.4e’ ,EndCond(i,1)); 

6: disp([? | ? label2(j,:) labeli(k,:) strg]); 
es; end 

6: if EIorDepth == 

7;  fprintf(’\nEI values are specified’); 

7z: fprintf(C Wm | # X-start EI-value’ ) 
7z: fprintf(?\n | --- ------------ ------------ eo 
z: for i-1:NoEIorDepths 

74 fprintf (?\n  |44.0f %12.4e %12.4e’, 

75: i,EIdata(i,2),EIdata(i,1)); 

7%: end 

7: else 

vs fprintf(’\nDepth values are specified for 7); 
7»:  fprintf(?rectangular cross section’); 

s» fprintf(’\n | Beam width: 412.4e’, 

81: BeamProp(1)); 

i2 fprintf(’\n | Young’’s modulus: %12.4e’, 

83: BeamProp(2)) ; 

ss fprintf(’\n |’); 

s: fprintf(’\n | # X-start Depth?) 
s: dprinbbo'An. | --- ------------ ------------ DE 


for i-1:NoEIorDepths 
fprintf(’?\n |44.0f %12.4e %12.4e’, 
i,EIdata(i,2),EIdata(i,1)); 
end 


: end 
: disp? °’); 


. 4 Begin analysis 
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239: 


. x=linspace(0,BeamLength,NoSegs)’; t=clock; 
: [V, M, Theta, Delta,Reactions]- 


bmvardep(NoSegs,BeamLength,Force,ExtRamp, 
EndCond, IntSup,EIdata,BeamProp); 


; t=etime(clock,t); 


; ^ Output results 

: disp? 7); 

. disp([’Solution time was ’,num2str(t),? secs.’]); 
: if NoIntSup > 0 


fprintf(’\nReactions at Internal Supports:’); 
fprintf(’?\n | X-location Reaction’) ; 
fprintf? im | ------------ ------------ 4 
for i=1:NoIntSup 
fprintf(’?\n | %12.8g %12.4e’, 
IntSup(i,2),Reactions(i)); 
end 
end 


; fprintf(’\n\nTable of Results:?); 

; fprintf(’?\n |  X-location Shear?); 
: fprintf Moment’ ) ; 

: fprintf (? Theta Delta’); 

: fprintf ?\n | ----------- ------------ ay 
: fprintf (?------------ "s 

fprintf (O eese [EsnepEEu- zr 

; if Printout > 0 


for i=1:Printout:NoSegs 
fprintf (°\n |%412.4g %12.4e %12.4e’, 
x(i),V(i),M(i)); 
fprintf (° %12.4e %12.4e’ , Theta(i),Delta(i)); 
end 
disp(* ?)j 


; else 


i-1; j=NoSegs; 

fprintf (°\n 1%12.4g %12.4e %12.4e’, 
x(i),VG),M(i)); 

fprintf (°? %12.4e %12.4e’ ,Theta(i) ,Delta(i)) ; 

fprintf(’\n |412.8g %12.4e %12.4e’, 
x(j),VGj) MG); 

fprintf( %12.4e %12.4e’ ,Theta(j) ,Delta(j)); 


5 end 
; fprintf(’\n\n’); 
: subplot (2,2,1) ; 


plot(x,V,’k-’); grid; xlabel(’x axis’); 
ylabel(’Shear’); title(’Shear Diagram’) ; 


© 2003 by CRC Press LLC 


240: 


subplot(2,2,2); 
plot(x,M,’k-’); grid; xlabel(’x axis’); 
ylabel(’Moment’); title(’Moment Diagram’) 


s subplot (2,2,3); 


plot(x,Theta,’k-’); grid; xlabel(’x axis’); 
ylabel(’Slope’); title(’Slope Curve’); 


» Subplot(2,2,4); 


plot(x,Delta,’k-’); grid; xlabel(’y axis’); 
ylabel(’Deflection’) ; 
title(’Deflection Curve’); subplot 


. drawnow; figure(gcf) 
. Aprint -deps vdb 


;. % more off 


. function [V,M,Theta,Delta,Reactions]- 


bmvardep (NoSegs , BeamLength, Force, ExtRamp, 
EndCond, IntSup,EIdata,BeamProp) 


: 4. (V,M,Theta,Delta,Reactions]=bmvardep 
: 4 (NoSegs, BeamLength,Force,ExtRamp,EndCond, 
; ^ IntSup,EIdata,BeamProp) 


: 4 This function computes the shear, moment, 

» ^ Slope, and deflection in a variable depth 

:% elastic beam having specified end conditions, 
. 4 intermediate supports with given 

. 4 displacements, and general applied loading, 

. 4 allowing concentrated loads and linearly 

. 4 varying ramp loads. 


: 4 NoSegs - number of beam divisions for 
hs integration 

: 4 BeamLength - beam length 

» ^ Force - matrix containing the magnitudes 
:% and locations for concentrated 
2A loads 

; 4 ExtRamp - matrix containing the end 

ie magnitudes and end locations 
oe for ramp loads 

; ^ EndCond - matrix containing the type of 
4 end conditions, the magnitudes, 
A and whether values are for the 
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; ^ IntSup = 


; ^ EIdata = 
. 4 BeamProp  - 


AV ES 
HM Ez 
3: 4^ Theta - 
. 4 Delta - 
; 4 Reactions - 


left or right ends 


matrix 


containing the location 


and delta for interior supports 


either 
either 


vector 
vector 
vector 
vector 


EI or depth values 
null or beam widths 


of shear values 
of moment values 
of slope values 
of deflection values 


reactions at interior supports 


1); 


; 4 User m functions required: 
sh oneovrei, extload, sngf, trapsum 


. if nargin < 8, BeamProp-[]; end 

; 4 Evaluate function value coordinates and 1/EI 
» x-linspace(0,BeamLength,NoSegs)'; 

: kk=oneovrei(x,EIdata,BeamProp) ; 


; A External load contributions to shear and 
. 4 moment interior to span and at right end 
: [ve,me]=extload(x,Force,ExtRamp) ; 

: [vv,mm]=extload(BeamLength, Force, ExtRamp) ; 


: 4 Deflections and position of interior supports 
; ns=size(IntSup, 
: if ns > 0 


ysprt=IntSup(:,1); r=IntSup(: ,2); 


snf-sngf(x,r, 


else 


1); 


ysprt=[]; r-[]; snf=zeros(NoSegs,0); 


; end 


: 4 Form matrix governing y’’ (x) 
; smat-kk(: ,ones(1,ns*3)) .* 


[x,ones(NoSegs, 1) , snf ,me] ; 
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. 4 Integrate twice to get slope and deflection 
. 4 matrices 
; smat-trapsum(0,BeamLength,smat); 
; ymat-trapsum(0,BeamLength,smat); 


; 4 External load contributions to 


: 4 Slope/deflection at the right end 
; $S=smat (NoSegs,ns+3); yy=ymat (NoSegs ,ns+3) ; 


3 ^ Equations to solve for left end conditions 


.% and internal reactions 


s ns4=ns+4; j=1:4; a-zeros(ns4,ns4); 
; bezeros(ns4,1); js-1:ns; js4=js+4; 


: 4 Account for four independent boundary 
: ^ conditions. Usually two conditions will be 
. 4 imposed at each end. 
: for k=1:4 
val-EndCond(k,1); typ-EndCond(k,2); 
wchend-EndCond(k,3); 
if wchend--1 
b(k)=val; row=zeros(1,4); row(typ)=1; 
a(k,j)=row; 
else 
if typ== Shear 
a(k,j)=[1,0,0,0]; b(k)=val-vv; 
if ns>0O 
a(k, js4)=sngf (BeamLength,r,0) ; 
end 
elseif typ==2 % Moment 
a(k,j)=[BeamLength,1,0,0]; b(k)-val-mm; 
if ns>0 
a(k, js4)=sngf (BeamLength,r,1); 
end 
elseif typ--3 % Slope 
a(k, j)=[smat (NoSegs, 1:2) ,1,0] ; 
b(k)=val-ss; 
if ns>0 
a(k, js4)=smat (NoSegs ,3:ns+2) ; 
end 
else % Deflection 
a(k,j)=L[ymat (NoSegs,1:2) ,BeamLength, 1] ; 
b(k)=val-yy; 
if ns>0O 
a(k, js4)=ymat (NoSegs ,3:ns+2) ; 
end 
end 
end 
: end 


: 4 Interpolate to assess how support deflections 
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s 4 are affected by end conditions, external 
» ^ loads, and support reactions. 
: if ns>0 


a(js4,1)=interp1(x,ymat(:,1),r); 
a(js4,2)=interp1(x,ymat(:,2),r); 
a(js4,3)=r; a(js4,4)=ones(ns,1); 
for j-1:ns-1 
a(jt+5:nst4,j+4)= ... 
interpi(x,ymat(:,j*2),r(j*1:ns)); 
end 


s end 
» b(js4)=ysprt-interp1 (x, ymat(: ,nst+3) ,r) ; 


. % Solve for unknown reactions and end conditions 
. c=a\b; vO=c(1); m0=c(2); s0=c(3); y0=c(4); 
; Reactions=c(5:ns+4) ; 


: 4 Compute the shear, moment, slope, deflection 
3: ^4 for all x 
: if ns > 0 


V=v0+vetsnef (x,r,0)*Reactions; 
M=m0+v0*xtmetsngf (x,r,1)*Reactions; 
Theta=s0t+smat (: ,ns+3)+smat(:,1:ns+2)* 
[vO;m0;Reactions] ; 
Delta=y0+sO*xtymat(:,ns+3)+ ... 
ymat(:,1:ns*2)*[v0;mO;Reactions]; 


; else 
Reactions-[]; V=v0+ve; M=m0+v0*x+me; 
Theta-sO-*smat(:,ns*3)*smat(:,1:2) *[vO;m0] ; 
Delta=y0+s0*xt+ymat (: ,ns+3)+ 
ymat(:,1:2)*[v0;m0]; 
; end 


; function [V,M,EITheta,EIDelta]-extload 


(x,Force,ExtRamp) 
^ [V,M,EITheta,EIDelta]-extload ... 
» (x,Force,ExtRamp) 


^ This function computes the shear, moment, 
^ Slope, and deflection in a uniform depth 
^ Euler beam which is loaded by a series of 


. 4 concentrated loads and ramp loads. The values 
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wo: 4 of shear, moment, slope and deflection all 
aa: 4 equal zero when x=0. 


422 VA 

423: h X - location along beam 

aoa, 4 Force - concentrated force matrix 
as 4 ExtRamp - distributed load matrix 
426 4, 

amo V - ghear 

as. 4 M - moment 


a29: 4 EITheta - slope 
430: 4 ElDelta - deflection 


435; nf=size(Force,1); nr-size(ExtRamp,1); 

a36: nx-length(x); V=zeros(nx,1); M-V; 

437: EITheta-V; EIDelta-V; 

43: ^ Concentrated load contributions 

439: if nf > O 

ao: FeForce(:,1); f-Force(:,2); V-V*sngf(x,f,0)*F; 
au: — M-M*sngf(x,f,1)*F; 

42: if nargout > 2 


443: EITheta-EITheta*sngf(x,f,2)*(F/2); 
444: EIDelta-EIDelta*sngf(x,f,3)*(F/6); 
445: end 

44e; end 


4 h Ramp load contributions 

az: if nr > 0 

ao  P=ExtRamp(:,1); Q-ExtRamp(:,2); 
aso:  p=ExtRamp(:,3); q=ExtRamp(: ,4); 
ai: S=(Q-P)./(q-p); sp2-sngf(x,p,2); 
ia sq2=sngf(x,q,2); sp3-sngf(x,p,3); 
is sq3=sngf(x,q,3); sp4=sngf(x,p,4); 
i4 sq4=sngf(x,q,4); 


as; — VeV*sngf(x,p,1)*P-sngf(x,q,1)* ... % Shear 
456: Q* (sp2-sq2) * (8/2) ; 

as;  M=M+sp2*(P/2)-sq2*(Q/2)+ ... ^ Moment 
458: (sp3-sq3)*(S/6) ; 

49 if nargout > 2 

460: EITheta-EITheta*sp3*(P/6)- ... % EI*Theta 
461: sq3* (Q/6)+(sp4-sq4) * (S/24) ; 

462: EIDelta-EIDelta*sp4*(P/24)- ... ^ EI*Delta 
463: sq4* (Q/24) * (sngf (x, p,5)- 

464: sngf(x,q,5))*(8/120); 
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. function val=oneovrei(x,EIdata,BeamProp) 
: 4 (val]=oneovrei(x,EIdata,BeamProp) 


. 4 This function computes 1/EI by piecewise 
s ^ linear interpolation through a set of data 
; ^ values. 


- location along beam 


X 
. 4 EIdata - EI or depth values 
. 4 BeamProp - null or width values 


| ^4 val - computed value for 1/EI 


; ^ User m functions required: none 


. if size(EIdata,1) < 2 % uniform depth case 


v-EIdata(1,1); 
Eldata=[v,min(x) ;v,max(x)]; 


; end 
. if ( nargin > 2 ) & ( sum(size(BeamProp)) > 0) 


^ Compute properties assuming the cross 
^ section is rectangular and EIdata(:,1) 
^ contains depth values 
width-BeamProp(1); E-BeamProp(2); 
EIdata(:,1)-E*width/12*xEIdata(:,1).^3; 


. end 
. val=1./lintrp(EIdata(: ,2) ,EIdata(:,1),x); 


0 


a 

. 4 This function computes the singularity 
507: 4 function defined by 

508: h y=<x-x0>"n for n=0,1,2,... 


m 
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; 4 User m functions required: none 
0 


; if nargin < 3, n-0; end 
x-x(:); nx-length(x); x0=x0(:)’; nO-length(x0); 
x-x(:,ones(1,n0)); x0=x0(ones(nx,1),:); d-x-x0; 
s=(d>=zeros(size(d))); v=d.*s; 
if n== 

y=s; 
: else 


for j-1:n-1; y=y.*v; end 


; function v=trapsum(a,b,y,n) 


. 4 v=trapsum(a,b,y,n) 


3: ^ This function evaluates: 


33: ^ | integral(a-»x, y(x)*dx) for a<=x<=b 


e 


. 4 by the trapezoidal rule (which assumes linear 
; 4 function variation between succesive function 
; 4 values). 


3» ^ a,b - limits of integration 


p e OR OR OR OR OR OR OR 
Os EO Ob 90 USE SO Un cimo ced AB Ex 


QU OQ o g o gc qgq gt gg gt gu gt gc g gt gt gt gg cg 


Og OG OG OO ES} 


: 4 y  - integrand that can be a vector-valued 
h function returning a matrix such that 
o function values vary from row to row. 
A It can also be input as a matrix with 
vA the row size being the number of 
r^ function values and the column size 
% being the number of components in the 
h vector function. 
^n  - the number of function values used to 
^ perform the integration. When y is a 
y matrix then n is computed as the number 
% of rows in matrix y. 
0 
h 
^ v  - integral value 
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A 


[o [o [o [o [o [o [o [o [ou [o [ou ou [o1] ol ou ol ol oO oO oO ol ol 
e 0 1 


; if isstr(y) 
^ y is an externally defined function 
x=linspace(a,b,n)’; h=x(2)-x(1); 
Y=feval(y,x); % Function values must vary in 
^ row order rather than column 
^ order or computed results 
^ will be wrong. 
m-size(Y,2); 
else 
^ y is column vector or a matrix 
Y=y; [n,m]=size(Y); h=(b-a)/(n-1); 
; end 
; v=[zeros(1,m); ... 
h/2*cumsum(Y(1:n-1,:)+Y(2:n,:))]; 


: 4 function y=lintrp(xd,yd,x) 
^ See Appendix B 
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Chapter 12 


Applications of Analytic Functions 


12.1 Properties of Analytic Functions 


Complex valued functions of a single complex variable are useful in various dis- 
ciplines such as physics and numerical approximation theory. The current chap- 
ter summarizes a number of attractive properties of analytic functions and presents 
some applications in which MATLAB is helpful. Excellent textbooks presenting the 
theory of analytic functions [18, 75, 119] are available which fully develop various 
theoretical concepts employed in this chapter. Therefore, only the properties which 
may be helpful in subsequent discussions are included. 


E EEETTTETETTETETTÉTÁTEITITTTTTITTTTITTETIIILIIIIIIIIÍIIIÍ 


12.2 Definition of Analyticity 
We consider a complex valued function 
F(z)—u(z,y)-iv(xy), z=at+iy 
which depends on the complex variable z. The function F(z) is analytic at point z if 
it is differentiable in the neighborhood of z. Differentiability requires that the limit 
im, F(z+ 22 F(z) = F'(z) 


exists independent of how |Az| approaches zero. Necessary and sufficient conditions 
for analyticity are continuity of the first partial derivatives of u and v and satisfaction 
of the Cauchy-Riemann conditions (CRC) 


Qu ðv Ou Qv 

ðr Oy ` Oy Ox 
These conditions can be put in more general form as follows. Let n denote an ar- 
bitrary direction in the z-plane and let s be the direction obtained by a 90? counter- 
clockwise rotation from the direction of n. The generalized CRC are: 


ðu Ov Ou Ov 
ðn Os "^ ðs on 
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Satisfaction of the CRC implies that both u and v are solutions of Laplace’s equation 


Oru u 
2u = — —<— >= 
a Ox? Oy? 


and 
0v av 
Ox? y 
These functions are called harmonic. Functions related by the CRC are also said to 
be harmonic conjugates. When one function u is known, its harmonic conjugate v 
can be found within an additive constant by using 


v= [w= [Pars [5 w= f PRLS E + constant 
Oy Ox 


Harmonic conjugates also have the properties that curves u = constant and v = 
constant intersect orthogonally. This follows because u — constant implies ou is 
zero in a direction tangent to the curve. However ou = oe so v = constant along a 
curve intersecting u = constant orthogonally. 

Sometimes it is helpful to regard a function of x and y as a function of z = x + iy 
and Z = x — iy. The inverse is x = (z + Z)/2 and y = (z — z)/(2i). Chain rule 
differentiation applied to a general function ¢ yields 


06 09 00 0ó 06 ð$ 


ðr Oz OZ " Oy Oz Oz 


ð EN 8 0X, 96 
(z-: x)eé-2 az? (x +g) 0-258 


So Laplace’s equation becomes 


Sé Dé Os 
Ox? Oy? OzO0z 


=0 


so that 


=0 


It is straightforward to show the condition that a function F be an analytic function 
of z is expressible as 


It is important to note that most of the functions routinely employed with real argu- 
ments are analytic in some part of the z-plane. These include: 


2”, Vz, log(z), e^, sin(z), cos(z), arctan(z), 


to mention a few. The real and imaginary parts of these functions are harmonic and 
they arise in various physical applications. The integral powers of z are especially 
significant. We can write 


z—re? , r2 ay) , 6 = tan! (4) 
zx 
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and get 


z” =u+iv , u=r"cos(nd) , v-r"sin(n0) 


The reader can verify by direct differentiation that both u and v are harmonic. 
Points where F(z) is nondifferentiable are called singular points and these are 
categorized as isolated or nonisolated. Isolated singularities are termed either poles 
or essential singularities. Branch points are the most common type of nonisolated 
singularity. Singular points and their significance are discussed further below. 


12.3 Series Expansions 


If F(z) is analytic inside and on the boundary of an annulus defined by a € 
|z — zo| € b then F(z) is representable in a Laurent series of the form 


oo 


F(z) = 5 an(z — zo)" ; a < |z — zo| < b 


n=— oo 


1 F(t) dt 
F(z) E ml (t zo) 


and L represents any closed curve encircling zo and lying between the inner circle 
|z — zo| = a and the outer circle |z — zo| = b. The direction of integration along 
the curve is counterclockwise. If F'(z) is also analytic for |z — zo| < a, the negative 
powers in the Laurent series drop out to give Taylor's series 


where 


oo 
F(z)-— S a(z- 20)” , |z—2zo| € 5 
n=0 

Special cases of the Laurent series lead to classification of isolated singularities 
as poles or essential singularities. Suppose the inner radius can be made arbitrarily 
small but nonzero. If the coefficients below some order, say —m, vanish but a -m Æ 
0, we classify zo as a pole of order m. Otherwise, we say zo is an essential singularity. 

Another term of importance in connection with Laurent series is a —1, the coeffi- 
cient of (z — zo) 1. This coefficient, called the residue at zo, is sometimes useful for 
evaluating integrals. 


E ÉETEEETTEEEEÉTTLIILTTIETTIITITILTÍÍITIIIIÍII 


12.4 Integral Properties 


Analytic functions have many useful integral properties. One of these properties 
that concerns integrals around closed curves is: 
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Cauchy-Goursat Theorem: If F(z) is analytic at all points in a simply 
connected region R, then 
" F(z)dz=0 
L 


for every closed curve L in the region. 


An immediate consequence of this theorem is that the integral of F(z) along any 
path between two end points zı and z2 is independent of the path (this only applies 
for simply connected regions). 


12.4.4 Cauchy Integral Formula 


If F(z) is analytic inside and on a closed curve L bounding a simply connected 
region R then 
1 F(t) dt 
2m Jp t-z 


for z inside L 


F(z)=0 for z outside L 


The Cauchy integral formula provides a simple means for computing F (z) at interior 
points when its boundary values are known. We refer to any integral of the form 


med pes 


Oni i—z 


as a Cauchy integral, regardless of whether F(t) is the boundary value of an ana- 
lytic function. I(z) defines a function analytic in the complex plane cut along the 
curve L. When F(t) is the boundary value of a function analytic inside a closed 
curve L, I(z) is evidently discontinuous across L since I(z) approaches F(z) as z 
approaches L from the inside but gives zero for an approach from the outside. The 
theory of Cauchy integrals for both open and closed curves is extensively developed 
in Muskhelishvili's texts [72, 73] and is used to solve many practical problems. 


12.4.3 Residue Theorem 


If F(z) is analytic inside and on a closed curve L except at isolated singularities 
21, 22,..., Zn Where it has Laurent expansions, then 


j=n 


| F(z)dz= 2m Y Bj 
L =| 


where B; is the residue of F(z) at z = z; . In the instance where z, is a pole of 
order m, the residue can be computed as 


cao cog la Foe- a"), 


m 
zz, 
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12.5 Physical Problems Leading to Analytic Functions 


Several physical phenomena require solutions involving real valued functions sat- 
isfying Laplace’s equation. Since an analytic function has harmonic real and imag- 
inary parts, a harmonic function can often be expressed concisely as the real part 
of an analytic function. Useful tools such as Taylor series can yield effective com- 
putational devices. One of the simplest practical examples involves determining a 
function u harmonic inside the unit disk |z| < 1 and having boundary values de- 
scribed by a Fourier series. In the following equations, and in subsequent articles, 
we will often refer to a function defined inside and on the unit circle in terms of polar 
coordinates as u(r, 0) while we may, simultaneously, think of it as a function of the 
complex variable z = ra where o. = et. Hence we write the boundary condition 
for the circular disk as 


oo 


u(1, 0) — » Cno” , o = e” 


with C-n = Cn because u is real. The desired function can be found as 
u(r, 0) = mboxreal( F(z) ) 
where 


F(z) 2 co 29 cnz” , laI 
n=1 


This solution is useful because the Fast Fourier Transform (FFT) can be employed 
to generate Fourier coefficients for quite general boundary conditions, and the series 
for F(z) converges rapidly when |z| < 1. This series will be employed below to 
solve both the problem where boundary values are given (the Dirichlet problem) and 
where normal derivative values are known on the boundary (the Neumann problem). 
Several applications where analytic functions occur are mentioned below. 


12.5.1 Steady-State Heat Conduction 


The steady-state temperature distribution in a homogeneous two-dimensional body 
is harmonic. We can take u = Real[F(z)]. Boundary curves where u = constant 
lead to conditions 


F(z) + F(z) = constant 


in the complex plane. Boundary curves insulated to prevent transverse heat flow lead 
to gu = 0, which implies 


F(z) — F(z) = constant 
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12.5.2 Incompressible Inviscid Fluid Flow 


Some flow problems for incompressible, nonviscous fluids involve velocity com- 
ponents obtainable in terms of the first derivative of an analytic function. A complex 
velocity potential F(z) exists such that 


u — iv = F'(z) 


At impermeable boundaries the flow normal to the boundary must vanish which im- 
plies 


F(z) — F(z) = constant. 
Furthermore, a uniform flow field with u = U, v = V is easily described by 


F(z) - (U —iV)z 


12.5.3 Torsion and Flexure of Elastic Beams 


The distribution of stresses in a cylindrical elastic beam subjected to torsion or 
bending can be computed using analytic functions [90]. For example, in the torsion 
problem shear stresses T,., and 7, , can be sought as 


If the function z = w(¢) which maps |C| € 1 onto the beam cross section is known, 
then an explicit integral formula solution can be written as 


o 1 w(o)w(o)do 
#0) = zl TT 


Consequently, the torsion problem for a beam of simply connected cross section is 
represented concisely in terms of the function which maps a circular disk onto the 
cross section. 


12.5.4 Plane Elastostatics 


Analyzing the elastic equilibrium of two-dimensional bodies satisfying conditions 
of plane stress or plane strain can be reduced to determining two analytic functions. 
The formulas to find three stress components and two displacement components are 
more involved than the ones just stated. They will be investigated later when stress 
concentrations in a plate having a circular or elliptic hole are discussed. 
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12.5.5 Electric Field Intensity 


Electromagnetic field theory is concerned with the field intensity « which is de- 
scribed in terms of the electrostatic potential £ [92] such that 
: Oo  .0ó 
E = Es ib, ———-—i 
+4 F a By 
where ¢ is a harmonic function at all points not occupied by charge. Consequently a 
complex electrostatic potential Q(z) exists such that 


€ = —Q'(z) 


The electromagnetic problem is analogous to inviscid incompressible fluid flow prob- 
lems. We will also find that harmonic functions remain harmonic under the geometry 
change of a conformal transformation, which will be discussed later. This produces 
interesting situations where solutions for new problems can sometimes be derived by 
simple geometry changes. 


12.6 Branch Points and Multivalued Behavior 


Before specific types of maps are examined, we need to consider the concept of 
branch points. A type of singular point quite different from isolated singularities such 
as poles arises when a singular point of F(z) cannot be made the interior of a small 
circle on which F(z) is single valued. Such singularities are called branch points 
and the related behavior is typified by functions such as \/z = zo and log(z — zo). 
To define p — log(z — zo), we accept any value p such that e? produces the value 
z — zo. Using polar form we can write 


i(O0+27k) 


(z — zo) = |z — zole where 6 = arg(z — zo) 


with k being any integer. Taking 
p = log |z — zo| + i(0 + 27k) 


yields an infinity of values all satisfying e? = z — zo. Furthermore, if z traverses a 
counterclockwise circuit around a circle |z — zo| = ô, 0 increases by 27 and log(z — 
Zo) does not return to its initial value. This shows that log(z — zo) is discontinuous 
on a path containing zo. A similar behavior is exhibited by \/z = zo, which changes 
sign for a circuit about |z — zo| = ô. 

Functions with branch points have the characteristic behavior that the relevant 
functions are discontinuous on contours enclosing the branch points. Computing the 
function involves selection among a multiplicity of possible values. Hence /4 can 
equal 4-2 or —2, and choosing the proper value depends on the functions involved. 
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For sake of definiteness MATLAB uses what are called principal branch definitions 
such that 


VZ = |z| et , =r <0 = tan”! (4) <T 
T 


and 
log(z) = log |z| + i0 


The functions defined this way have discontinuities across the negative real axis. 
Futhermore, log(z) becomes infinite at z = 0. 

Dealing carelessly with multivalued functions can produce strange results. Con- 
sider the function 


p—-wyz-1 


which will have discontinuities on lines such that z2 — 1 = —|h| , where h is a 
general parameter. Discontinuity trouble occurs when 


z — XV1- |h| 


Taking 0 € |h| € 1 gives a discontinuity line on the real axis between —1 and 
+1, and taking |h| > 1 leads to a discontinuity on the imaginary axis. Figure 12.1 
illustrates the odd behavior exhibited by sqrt (z.*2-1). The reader can easily 
verify that using 


sqrt(z-1).*sgrt(z-*1) 


defines a different function that is continuous in the plane cut along a straight line 
between —1 and 4-1. 

Multivalued functions arise quite naturally in solutions of boundary value prob- 
lems, and the choices of branch cuts and branch values are usually evident from 
physical circumstances. For instance, consider a steady-state temperature problem 
for the region |z| « 1 with boundary conditions requiring 


Ou(1, 0) 


u(1,0)=1 ,0<0<7 and 7 
" 


=0 ,mT«0«2m. 


It can be shown that the desired solution is 


u — real E [log(z + 1) — log(z — Di} + : 


where the logarithms must be defined so u is continuous inside the unit circle and u 
equals 1/2 at z — 0. Appropriate definitions result by taking 


—c"«arg(z-l)zm-«- , O<arg(z-1)< 2r 


MATLAB does not provide this definition intrinsically; so, the user must handle each 
problem individually when branch points arise. 
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Discontinuous Surface for imag( sqrt( Z-1 )) 
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Figure 12.1: Discontinuous Surface for imag (sqrt (z? — 1)!/2) 
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12.7 Conformal Mapping and Harmonic Functions 


A transformation of the form 


x= x(€,n), y=y(E,0) 


is said to be conformal if the angle between intersecting curves in the (£, n) plane 
remains the same for corresponding mapped curves in the (x, y) plane. Consider the 
transformation implied by z = w(¢) where w is an analytic function of C. Since 


dz = w'(C)dG 
it follows that 


|dz| = |w" (O| lde] and — arg(dz) = arg(w'(¢) ) + arg(d¢) 


This implies that the element of length |d¢| is stretched by a factor of |w’(¢)| and the 
line element d¢ is rotated by an angle arg|w’(¢)]. The transformation is conformal 
at all points where w’(¢) exists and is nonzero. 

Much of the interest in conformal mapping results from the fact that harmonic 
functions remain harmonic under a conformal transformation. To see why this is 
true, examine Laplace's equation written in the form 

o?u 


V? u = 4— =0 
zy” OzOZz 
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For a conformal map we have 


Ou 1 Ou Ou 1 Ou 


ðz wae ' OF wae 


Since z depends only on ¢ and Z depends only on Ç we find that 


v? j 1 0?u 1 v2 
u = — SS — ——— u 
O ONE WOR E 
It follows that 
0?u SS en i E EE 
ng og. implies og Og 


wherever w'(C) # 0. The transformed differential equation in the new variables is 
identical to that of the original differential equation. Hence, when u(x, y) is a har- 
monic function of (x, y), then u(x(£, n), y(€,7)) is a harmonic function of (£, n), 
provided w(¢) is an analytic function. This is a remarkable and highly useful prop- 
erty. Normally, changing the independent variables in a differential equation changes 
the form of the equation greatly. For instance, with the polar coordinate transforma- 
tion 
x = rcos(0), y= r sin(0) 


the Laplace equation becomes 


0?u lôu 1 O?u 


B. OS rug eg e db 
WU at rs ^ op 


=0 
The appearance of this equation is very different from the Cartesian form because 
x+iy is not an analytic function of r+i0. On the other hand, using the transformation 


z = log(¢) = log(|¢|) + i arg(c) 


gives 
Vaytt = (66) Venu 


and V2,u = 0 implies V2,u = 0 at points other than ¢ = 0 or ¢ = oo. 

Because solutions to Laplace’s equation are important in physical applications, 
and such functions remain harmonic under a conformal map, an analogy between 
problems in two regions often can be useful. This is particularly attractive for prob- 
lems where the harmonic function has constant values or zero normal gradient on 
critical boundaries. An instance pertaining to inviscid fluid flow about an elliptic 
cylinder will be used later to illustrate the harmonic function analogy. In the sub- 
sequent sections we discuss several transformations and their relevant geometrical 
interpretation. 
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E: SeSe 


12.8 Mapping onto the Exterior or the Interior of an Ellipse 


We will examine in some detail the transformation 


a+b a—b\ __ = 
= (S)c+( 5 E "edem y. , cR 


where R = (a + b)/2 and m = (a — b)/(a + b). The derivative 
2'(¢) = Rd — me?) 


becomes nonconformal when z’(¢) = 0 or ¢ = +./m. For sake of discussion, we 
temporarily assume a > b to make ,/m real rather than purely imaginary. A circle 
C = poe”? transforms into 


x+y = R(po + mpg) cos(0) + iR(po — mpg +) sin(0) 


yielding an ellipse. When po = 1 we get x = acos(0), y = bsin(0). This mapping 
function is useful in problems such as inviscid flow around an elliptic cylinder or 
stress concentration around an elliptic hole in a plate. Furthermore, the mapping 
function is easy to invert by solving a quadratic equation to give 


EES e cres ERR 


a+b : 


The radical should be defined to have a branch cut on the x-axis from —o to o and 
to behave like +z for large |z|. Computing the radical in MATLAB as 


sqrt (z-alpha) .*sqrt(z+alpha) 


works fine when a is real because MATLAB uses 


-r < arg(z t a) <r 


and the sign change discontinuities experienced by both factors on the negative real 
axis cancel to make the product of radicals continuous. However, when a < b the 
branch points occur at +zo where zp = iy b? — a?, and a branch cut is needed along 
the imaginary axis. We can give a satisfactory definition by requiring 


T 
T3 < arg(z + zo) € — 


The function elipinvr provided below handles general a and b. 

Before leaving the problem of ellipse mapping we mention the fact that mapping 
the interior of a circle onto the interior of an ellipse is rather complicated but can be 
formulated by use of elliptic functions [75]. However, a simple solution to compute 
boundary point correspondence between points on the circle and points on the ellipse 
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appears in [52]. This can be used to obtain mapping functions in rational form which 
are quite accurate. The function elipdplt produces the mapping. Results showing 
how a polar coordinate grid in the ¢-plane maps onto a two to one ellipse appears 
in Figure 12.2. In these examples and other similar ones, grid networks in polar 
coordinates always use constant radial increments and constant angular increments. 
Only the region corresponding to 0.3 € |¢| < 1 and0 < arg(¢) € 4 is shown. Note 
that the distortion of line elements at different points of the grid is surprisingly large. 
This implies that the stretching effect, depending on |w’(¢)| ,varies more than might 
at first be expected. 

Often it is desirable to see how a rectangular or polar coordinate grid distorts 
under a mapping transformation. This is accomplished by taking the point arrays and 
simultaneously plotting rows against rows and columns against columns as computed 
by the following function gridview which works for general input arrays x, y. If the 
input data are vectors instead of arrays, then the routine draws a single curve instead 
of a surface. When gridview is executed with no input, it generates the plot in 
Figure 12.3 which shows how a polar coordinate grid in the ¢-plane maps under the 


transformation 
m 
z=R|¢+ z) 
( ¢ 


The new grid consists of a system of confocal ellipses orthogonally intersecting a 
system of hyperbolas. 


© 2003 by CRC Press LLC 


Figure 12.2: 
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Mapping |z| < 1 onto an Elliptic Disk 
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Circular Annulus Mapped onto an Elliptical Annulus 
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Figure 12.3: Circular Annulus Mapped onto an Elliptic Annulus 
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12.8.1 Program Output and Code 


Function sqrtsurf 


; function sqrtsurf 


^ 


0 
/ 
0 


. ^ This function illustrates the discontinuity 
. ^ in the function w-sqrt(z*z-1). 


. xx-linspace(-2,2,41); [x,yl-meshgrid(xx,xx); 

. Z-x*i*y; w-sqrt(z.*z-1); close 

. surf(x,y,imag(w)); view(-40,50); 

. Xlabel(’real axis’); ylabel(’imaginary axis’); 
. Zlabel(’imag( sqrt( z^2-1 ) )’); 

; title([’Discontinuous Surface for imag( sqrt’, 


"a2 - 1) ys 


. grid on; figure(gcf); 
. Aprint -deps sqrtsurf 


Function elipinvr 


. function zeta-elipinvr(a,b,z) 
^ zeta-elipinvr(a,b,z) 
VA A — die a die a die dade die a a a a a a a a a 
j^ 
^4 This function inverts the transformation 
^ z-(a*b)/2*zeta*t(a-b)/2/zeta which maps 
^ abs(zeta)>=1 onto (x/a).^2*(y/b).^2 >= 1 


^ a - semi-diameter on x-axis 
wh b - semi-diameter on y-axis 
ide (2 - array of complex values 


. 4^ zeta - array of complex values for the 
5: h inverse mapping function 


; 4 User m functions called: none 
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. Z0-sqrt(a^2-b^2); ab=atb; 


zeta-z/a; 


2: elseif a»b % branch cut along the real axis 


zeta-(z*sqrt(z-z0) .*sqrt (z*z0)) /ab; 


24 else ^ branch cut along the imaginary axis 


ap-angle(z*z0); ap-ap*2*pi*(ap«--pi/2); 

am-angle(z-z0); am-am*2*pi*(am«--pi/2); 

zeta-(z*sqrt(abs(z.^2-z0.^2)) .*exp(... 
i/2*(ap*am)))/ab; 


29: end 


Function elipdplt 


. function [z,a,b]-elipdplt(rx,ry) 


^ lz,a,b]-elipdplt(rx,ry) 

^ This function plots contour lines showing 
^ how a polar coordinate grid in a circular 
^ disk maps onto an elliptic disk. 


^ User m functions called: elipdisk, gridview 


; if nargin--0, rx-2; ry-1; end 
. zeta-linspace(.3,1,12)?* 


exp (i*linspace(0,pi/2,61)); 


. [z,a,b]=elipdisk(zeta,rx,ry); 
. x=real(z); y-imag(z); 
s gridview(x,y,’x axis’,’y axis’,... 


'Mapping abs(ZETA)<1 onto an Elliptic Disk’); 


. colormap([1 1 1]); shg 
: print -deps elipdisk 


2: function gridview(x,y,xlabl,ylabl,titl) 
"m. 

: 4 gridview(x,y,xlabl,ylabl,titl) 

Bea Yh PVP Rute spe eae GI eem quen. 

T 


2: ^ This function views a surface from the top 
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:% 


5: 1 


58: € 


zur 


2 


Dd 


:e 


to show the coordinate lines of the surface. 

It is useful for illustrating how coordinate 
lines distort under a conformal transformation. 
Calling gridview with no arguments depicts the 
mapping of a polar coordinate grid map under 

a transformation of the form 

z=R*(zeta+m/zeta). 


X,y - real matrices defining a 
curvilinear coordinate system 

xlabl,ylabl - labels for x and y axes 

titl - title for the graph 


User m functions called:  cubrange 


close 
f nargin«5 

xlabl=’real axis’; ylabl=’imaginary axis’; 
title" 


; end 


^ 
imo 


Bie 


Default example using z=R*(zetatm/zeta) 

f nargin-- 

zeta=linspace(1,3,10)’* : 

exp(i*linspace(0,2*pi,81)); 

a-2; b-1; R=(atb)/2; m-(a-b)/(a*b); 

z-R*(zeta*m./zeta); x-real(z); y-imag(z); 

titl-['Circular Annulus Mapped onto an ’, 
'"Elliptical Annulus’]; 

nd 


ange-cubrange([x(:),y (:21,1.1) ; 


The data defin a curve 

f size(x,1)--1 | size(x,2)-- 

plot(x,y,’-k’); xlabel(xlabl); ylabel(ylab1); 
title(titl); axis(’equal’); axis(range) ; 

grid on; figure(gcf); 


if nargin-- 
print -deps gridviewl 
end 
. 4 The data defin a surface 
lse 


plot(x,y,’k-?,x?,y?,?’k-?) 
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7:  Xlabel(xlabl); ylabel(ylabl); title(titl); 
7;  axis(?'equal?); axis(range); grid on; 

7:  figure(gcf); 

7; if nargin-- 

TT: print -deps gridview 

78: end 


a» function [z,a,b]=elipdisk(zeta,rx,ry) 


s: ^ [z,a,b]-elipdisk(zeta,rx,ry) 


s: ^ This function computes a rational function 
s: 4 mapping abs(zeta)<=1 onto an elliptical disk 
o; 4 defined by (x/rx)^2*(y/ry)^2«-1. Boundary 
9: ^ points are computed using theory from 

92: ^ | P. Henrici, Applied Complex Analysis, 

93: h Vol 3, p391. 

9%: ^ The rational function approximation has the 
o ^ form: 


96: % z-sum(a(j)*zeta^(2*j-1)) / 

97: % (1*sum(b(j)*zeta^(2*3)); 

os. h 

o» ^ zeta - matrix of points with abs(zeta)<=1 


o» ^ rX,ry - ellipse semidiameters on x and y 
or: % axes 


o2: 4 

o^ zZ - points into which zeta maps 

o4 4 a,b - coefficients in the rational 

05: % function defining the map 

06: % 

o 4 User m functions called: ratcof 

os: % Fe GN GP ge a SF ot ee OO GS we Ga AE? goer Te UO, oe DARREN 


o ntrms=100; ntheta=251; 

1. tau=(0:2*pi/ntheta:2*pi)’ ; 

2 ep=(rx-ry)/(rxtry) ; 

3. Z=exp(ixtau); z=ztep*conj(z) ; 

4 j71:ntrms;  ep-ep.^j; ep=ep./(j.*(1tep.*ep)); 
5 theta-tau*t2*( sin((2*tautpi)*j)*ep?); 

6. Zta-exp(i*theta); z-rx/max(real(z))*z; 

z [a,b]2ratcof(zta.^2,z./zta,8) ; 
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; a-fix(real(1e8*a))/1e8; b-fix(real(1e8*b))/1e8; 
. af=flipud(a(:)); bf=flipud([1;b(:)]); 

; zta2-zeta.^2; 

. Z=zeta.*polyval (af ,zta2) ./polyval (bf ,zta2) ; 


s function [a,b]-ratcof(xdata,ydata,ntop,nbot) 
: 4 la,b]=ratcof (xdata,ydata,ntop,nbot) 
: 4 Determine a and b to approximate ydata as 


; 4 a rational function of the variable xdata. 
; 4^ The function has the form: 


3a: h y(x) = sum(1=>ntop) ( a(j)*x*(j-1) ) / 

35: h ( 1 + sum(1=>nbot) ( b(j)»*x^(j)) D 
36: kk 

3: ^ xdata,ydata - input data vectors (real or 

38: % complex) 

3» ^ ntop,nbot - number of series terms used in 
40: h the numerator and the 

a: h denominator. 


. % User m functions called: none 


; ydata-ydata(:); xdata-xdata(:); 

; m=length(ydata) ; 

; if nargin==3, nbot=ntop; end; 

: x=ones(m,ntoptnbot); x(:,ntop*1)--ydata.*xdata; 
s: for i=2:ntop, x(:,i)-xdata.*x(:,i-1); end 

si. for i-2:nbot 


x(:,i*ntop)-xdata.*x(:,i*ntop-1); 


ss end 
sa; ab=x\ydata; 
5: a=ab(1:ntop); b-ab(ntop*i:ntop-*nbot); 


. 4 function range=cubrange (xyz, ovrsiz) 
; 4 See Appendix B 
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12.9 Linear Fractional Transformations 
The mapping function defined by 


u az+b 
cz+d 


is called a linear fractional, or bilinear, transformation where a, b, c, and d are con- 
stants. It can be inverted to yield 


| —dw+b 


cw-—a 
If c is zero the transformation is linear. Otherwise, we can divide out c to get 


 .-À2 TB 
|» z4D 


The three remaining constants can be found by making three points in the z-plane 
map to three given points in the w-plane. Note that z = oo maps to w = A and 
z = —D maps to w = œ. 

The transformation has the attractive property that circles or straight lines map into 
circles or straight lines. An equation defining a circle or straight line in the z-plane 
has the form 


P2z+Qz+Qz+S5=0 


where P and S are real. A straight line is obtained when P is zero. Expressing z in 
terms of w and clearing fractions leads to an equation of the form 


Powtt + Qow + Qoto + So = 0 


which defines a circle in the w-plane when Py is nonzero. Otherwise, a straight line 
in the w-plane results. 

Determining the bilinear transformation to take three z-points to three w-points is 
straightforward except for special cases. Let 


Z= [2137322323] and W=[wl;w2;w3] 


If det ([Z,W, ones (3, 1) ]) vanishes then a linear transformation with c = 0 
and d = 1 applies. If z = oo maps to w, we take a = wi, c = 1. If z = z 
maps to w = oo we take c = 1, d = —z4. In the usual situation we simply write 
w(z + D) = Az + B and solve the system 


[2,0nes (3,1) ,-W]* [A; B; D] W.*Z 
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Function linfrac, used to compute the coefficients in the transformation, is pro- 
vided at the end of this section. Points at infinity are handled by including oo (repre- 
sented in MATLAB by inf) as a legitimate value in the components of z or w. For 
example, the transformation w = (2z + 3)/(z — 1) takes z = oo tow = 2, z = 1 to 
w = oo, and z = 1 + 4 to w = 2 — 5». The expression 


cz-linfrac([inf,1,1-«1i],[2,inf,2-51]); 


produces the coefficients in the transformation. Similarly, the transformation is in- 
verted by 


cw-linfrac([2,inf,2-5i],[inf,1,1-i]); 


or equivalently by 


cw-linfrac([0,1,2i],[-1.5,-4,-0.25-1.25i]); 


Another type of problem of interest in connection with a known bilinear transfor- 
mation is to find the circle or straight line into which a given circle or straight line 
maps. Function ere2ere performs this task. The coefficients c are given along with 
three points lying on a circle or a straight line. Then parameters wo, ro pertaining to 
the w-plane are computed. If parameter type equals 1, then wo and ro specify the 
center and radius of a circle. Otherwise, wo and ro are two points defining a straight 
line. 

The linear fractional transformation can be used to map an eccentric annulus such 
as that in Figure 12.4 onto a concentric annulus. Suppose a region 1 € |z| € is to 
be mapped onto the region defined by 


jw) Ri , |w—wol € Ro 


The radius R and mapping coefficients c can be obtained by solving a system of non- 
linear simultaneous equations. Function ecentric accomplishes the task. A function 
call of 


[c,r]=ecentric(0.25,-0.25,1); 


produces 
. 3.48212 + 0.25 


z+ 13.9282 i 
and the plot in Figure 12.4 shows the mapped image of a polar coordinate grid using 


R = 3.7321 
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Concentric Annulus Mapped onto Eccentric Annulus 
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Figure 12.4: Concentric Annulus Mapped onto Eccentric Annulus 


constant radial and angular increment in the z plane. 

To demonstrate the utility of the transformation just discussed, consider the prob- 
lem of determining the steady-state temperature field in an eccentric annulus with 
the inner and outer boundaries held at u; and uo, respectively. The temperature field 
will be a harmonic function that remains harmonic under a conformal transforma- 
tion. The related problem for the concentric annulus has the simple form 


By analogy, expressing r = |z| in terms of w gives the temperature distribution at 
points in the w-plane. 
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12.9.1 Program Output and Code 


Function linfrac 


. function c-linfrac(z,w) 


4 c-linfrac(z,w) 


^ This function determines the linear 

^ fractional transformation to map any three 
^ points in the z-plane into any three points 
^ in the w plane. Not more than one point in 


. 4^ either the z or w plane may be located at 
. 4 infinity. 


. 4 Z - vector of complex values [z1,z2,z3] 

. 4 w - vector of complex values [w1,w2,w3] 
y, 

. 4 c - vector defining the bilinear 

AA transformation 

9, w=(c(1)*z + c(2))/(c(3)*z + c(4)) 


2: 4 User m functions called: none 
23: Z=Z(:); w=w(:); c=ones(4,1); 
. k=find(z==inf); j=find(w==inf); kj-[k;jl; 


. ^ z and w both contain points at infinity 
2: if length(kj)==2 


c(1)=w(k); c(4)=-z(j); w(kj)=[]; z(kj)=[]; 
c(2)=(w-c(1))*z+w*c(4); 
return 


; end 


. 4 z-infinity maps to a finite w point 
; if ~isempty(k) & isempty(j) 


c(1)-w(k); z(k)=[]; w(k)=[]; 
c([2 4])=[[1;1],-w]\[(w-c(1)).*z]; 


return 


33: end 


. ^ a finite z point maps to w = infinity 
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; if ~isempty(j) & isempty(k) 


c(4)=-z(j); z(p=0; w=; 
c([1 2))=[z, [1; 1] ]N Ew. * (z*c (4))] ; 


return 


5; end 


. ^ case where all points are finite 
. mat7[z, ones (3,1) , -w] ; 


5: ^ case for a general transformation 
s: if det(mat)^-0 


c([1 2 4])2matN[w. *z] ; 


5: 4 case where transformation is linear 
54; else 


c(3)=0; c([1 2])=[z,ones(3,1)]\w; 


5e; end 


Function crc2crc 


Eo cO antec 


. function [wO,rO,typel-crc2crc(c,z) 


^ [wO,rO,typel-crc2crc(c,z) 


^ This function determines the circle or 
^ straight line into which a circle or straight 
^ line maps under a linear fractional 


; 4 transformation. 


DN c - coefficients defining a linear 

12: 4 fractional transformation 

13: h w-(c(1)*z*c(2))/(c(3) *z*c (4) ) 

u: h where c(2)*c(3)-c(1)*c(4) is nonzero 
B: hz - a vector of three complex values 

16: h lying on a circle or a straight line 
17: h 

i 4 WO  - center of a circle in the w plane 

19; h% if type-1, or a point on a straight 
2: % line if type=2 

a: ^ r0  - radius of a circle in the w plane 

22: h if type=1, or a point on a straight 
23: h line if type=2 


2: ^ type - equals 1 to denote a circle or 2 to 
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25: % denote a straight line in the w plane 
0 
26: jÀ 


2; 4 User m functions called: none 
0 


30: 4^ check for degenerate transformation 
si: if c(2)*c(3)==c (1) *c (4) 
ax» | disp(['Degenerate transformation in ’, 


33: function crc2crc?]); 
a4 WO=[]; rO-[]; type-[]; return; 
as end 


3: h evaluate the mapping of the z points 


ss w2(c(1)*z(:)4c(2)) ./ CC (3) *z(:)*c(2)) ; 


4» ^ check whether a point passes to infinity or 
4: 4 the three z points define a straight line 
a: k=find(w==inf) ; 

a3, At=det ([real(w) ,imag(w) ,ones(3,1)]); 

4: if ~isempty(k); w(k)=[]; end 


1s: ^ case for a straight line in the w plane 

iz h defined by two points on the line 

as: if dt--0 | ~isempty(k) 

a: — type-2; wO-w(1); r0-w(2); 

so: ^ case for a circle in the w plane defined by 
si, 4 a center point and the circle radius 

52 else 

5: type =1; 

sa V=[2*real(w) ,2*imag(w) ,ones(3,1)]\abs(w) .*2; 
s WO=v(1)+i*v(2); rO=sqrt (v(3)+abs(w0)^2); 

sé; end 


Function ecentric 


. function [c,r]=ecentric(ri,wo,ro,nopl) 


[c,r]=ecentric(ri,wo,ro,nopl) 


e w Ny n 
E 
"usd 


; 4^ This function determines the bilinear 
transformation which maps the region 
; 4 1<=abs(z)<=r onto an eccentric annulus 


oO N [o] iS 
E 
2x 
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. ^ defined by 
pu abs(w)»-ri & abs(w-wo)<=ro 


;: 4 The coefficients c in the transformation 
BA w-(c(1)*z*c(2))/Cc(3) *z+c(4)) 

. 4 must be found as well as the outer radius r 
s h of the annulus in the z plane. 


; 4 ri - radius of inner circle abs(w)=ri 
: 4 wo - center of outer circle abs(w-wo)-ro 
. 4 ro - radius of outer circle 
% 
:% C  - coefficients in the mapping function 
2: ^r  - radius of outer circle abs(z)=r 


. ^ nopl- no plot is given if nopl is input 
s 4 User m functions called: gridview 


2: if nargin--0, ri=.25; wo--.25; ro=1; end 


29: if wo~=0 


ci=(wotro)/ri; c2=(wo-ro)/ri; c3=2/(c1+c2) ; 
c4=(c2-c1)/(ci+c2); c5=c3-cl-c1*c4; c6-1-ci*c3; 
rt-sqrt(c5^2-4*c4*c6); 

ri-(-cb4rt)/(2*c4); r2=(-c5-rt)/(2*c4) ; 
r-max([ri,r2]); d=c3+c4*r; c=[ri*d;ri;1;d]; 


5 else 


c-[ri;0;0;1]; r=ro/ri; 


;: end 
; if nargin > 3, return, end 


: ^ Show the region onto which a polar coordinate 
. ^ grid in the z-plane maps. 

. z=linspace(1,r,20)’*exp(i*linspace(0,2*pi,81)); 
: w=(c(1)*z+c(2)) ./(c(3) *z+c(4)) ; 

; titl=[’Concentric Annulus Mapped onto ’, 


?Eccentric Annulus’]; 


. gridview(real(w),imag(w),... 


’ real axis’,’imaginary axis’,titl); shg 


. ^ print -deps ecentric 
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12.10 Schwarz-Christoffel Mapping onto a Square 


The Schwarz-Christoffel transformation [75] provides integral formulas defining 
transformations to map the interior of a circle onto the interior or exterior of a poly- 
gon. Special cases obtained by allowing selected vertices to pass to infinity lead 
to a variety of results [58]. In general situations, evaluating the parameters and inte- 
grals in the Schwarz-Christoffel transformation is difficult and requires use of special 
software [35]. We will examine only two cases: a) where the interior of a circle is 
mapped onto the interior of a square, and b) where the exterior of a circle is mapped 
onto the exterior of a square. The function 


6 
z=C n (14t) dt, 
0 


where C is a scaling constant, maps |¢| € 1 inside the square defined by 
(Iv] € 1) n (yl < 1). 


Expanding this radical by the binominal expansion and integrating gives 


E = n T(n E i) 1+4n 
G 1) G ; Je S 
A reasonably good approximation to the mapping function can be obtained by tak- 
ing several hundred terms in the mapping function and adjusting the constant c to 
make ¢ = 1 match z = 1. This series expansion converges slowly and rounds the 
corners of the square because the derivative of the mapping function behaves like 
(C — (5) at Ço = seti, 

The transformation to map |C| > 1 onto the square exterior defined by 


(z| 2 1)U (yl 2 1) 


has the form ! 
ZEN Used T ae ey. 
1 


where co and c, are arbitrary constants. Using the binomial expansion again and 
term by term integration leads to 


= T(n — 4) 

= —1)” 2 1—4n 1 

R p ) E 5 d | (el 

The function swesqmap provides both interior and exterior polynomial maps. Once 
again, truncating the series after a specified number of terms and making ¢ = 1 


map to z — 1 gives an approximate mapping function which converges much more 
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rapidly than the series for the interior problem. Rounding of the square corners is 
greatly reduced because the mapping function derivative behaves like (¢ — Ço) 1/2 at 
C, = +e®™7/4, Figure 12.5 illustrates results produced by the ten term series for 
both interior and exterior regions. Using rational functions to produce better results 
than polynomials was discussed earlier in Chapter 3. The function squarat, which 
provides both interior and exterior maps, appears below. 

It should be noted that inverting a mapping function z = w(¢) to get ¢ = g(z) 
explicitly is often difficult, if not impossible. For example, consider the form 


C(a + bC* + c’) 


aape c Aen 


X = 


which requires solving the polynomial 
cC? — ez +b — dz +. aC — z —0 


and picking the root inside or on the unit circle. Although the MATLAB function 
roots efficiently factors polynomials with complex coefficients, inverting the map- 
ping function for hundreds or thousands of values can be time consuming. 
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Interior Map of a Square Using a 10-term Series 


I * 


| 
i 


Il 
Il 


Exterior Map of a Square Using a 10-term Series 
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Figure 12.5: Square Maps Using a 10-term Series 
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12.10. Program Output and Code 


Function swesq10 


; function swcsqi0 


^ Example: swcsq10 


^ This example demonstrates square map 
^ approximations pertaining to truncated 
^ Schwarz-Christoffel transformations. 


^ User m functions called: swcsqmap, gridview 


. zeta-linspace(0.2,1,8)?* 


exp (i*linspace(0,pi/2,61)); 


. [z, a] "swucsqmap (zeta, 10) ; 
: subplot (211) 
s gridview(real(z),imag(z),’x axis’,’y axis’, 


[Interior Map of a Square Using’, 
> a 10-term Series’]); 


. subplot (212) 
. zeta=linspace(1,1.25,8)’* 


exp(i*linspace(0,pi/2,61)); 


. [z0, a] »swcsqmap (zeta, 10,1) ; 
2: gridview(real(z0) ,imag(z0),’x axis’,’y axis’, 


['Exterior Map of a Square Using ’, 
^a 10-term Series’]); 


s print -deps sqrplti10 
: subplot 


. function [z,a]-swcsqmap(zeta,ntrms,ifout) 


: 4 [z,a]"swcsqmap(zeta,ntrms,ifout) 


s 4 This function evaluates power series 

36: ^ approximations for mapping either the inside 
3: ^ Of a circle onto the inside of a square, or 
3: ^ mapping the outside of a circle onto the 

3» 4 outside of a square. The Schwarz-Christoffel 
. ^ integrals defining the mapping functions are 
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n 
Dd 


:e 


oh 


expanded in Taylor series and are truncated 
to produce approximations in the following 
polynomial forms: 


For the interior problem: 
z-sum(a(n)*zeta^(4x*n-3) ,n=1:ntrms) 


For the exterior problem: 
z=sum(a(n) *zeta* (-4*n+5) ,n=1:ntrms) 


The side length of the square is adjusted 
to equal 2. 


zeta - complex values where the mapping 
function is evaluated 

ntrms - number of terms used in the 
truncated series 

ifout - a parameter omitted if an interior 
map applies. ifout can have any 
value (such as 1) to show that an 
exterior map is to be performed. 


Z - values of the mapping function 
a - coefficients in the mapping series 


User m functions called: none 


=0:ntrms-2; 
f nargin== ^ recursion formula for mapping 
^ interior on interior 
pi-(n-1/2)./(n*1); p2=(n+1/4) ./(n+5/4) ; 
lse ^ recursion formula for mapping 
exterior on exterior 
p1=(n-1/2)./(n+1); p2=(n-1/4) ./(n+3/4) ; 


: end 
za 
iZ 
v 
OZ 


=[1,cumprod(-p1.*p2)]; a-a(:)/sum(a); 
4-zeta.^4; 

f nargin --3, z4-1./z4; end; 
-zeta.*polyval(flipud(a(:)),z4); 


function gridview(x,y,xlabl,ylabl,titl) 
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s ^ See Appendix B 


Function squarat 


MS M E aeg 


: Z 


37: 1 


: function [z,a,b]=squarat (zeta,ifout) 


[z,a,b]=squarat (zeta, ifout) 


This function maps either the interior of a 
circle onto the interior of a square, or maps 
the exterior of a circle onto the exterior of 
a square using a rational function having the 
approximate form: 


z(zeta) = zeta * 
Sum(a(j)*zeta4^j) / (1*8um(b(j)*zeta4^j) , 


where zeta4-zeta^4 for an interior problem, 
or zeta4-zeta^(-4) for an exterior problem. 


zeta - matrix of complex values such that 
abs(zeta)<=1 for an interior map, 
or abs(zeta)>=1 for an exterior map 

ifout - parameter present in the call list 


only when an exterior mapping is 
required 

Z - matrix of values of the mapping 
function 

a,b  - coefficients of the polynomials 
defining the rational mapping 
function 


User m functions called: none 


eta4d-zeta.^4; 
f nargin--1 % map interior on interior 


a-[ 1.07835, 1.37751,-0.02642, -0.09129, 
0.13460,-0.15763, 0.07430, 0.14858, 
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40: 0.01878,-0.00354 ]’; 
a: b-[ 1.37743, 0.07157,-0.11085, 0.12778, 


42: -0.13750, 0.05313, 0.14931, 0.02683, 
43: -0.00350,-0.000120 ]*; 
44 else ^ map exterior on exterior 


4: a = [1.18038, 1.10892, 0.13365, -0.02910]’; 
46: b = [1.10612, 0.27972, 0.00788]’; 

a. zeta4=1./zeta4; 

as: end 


so: 4 Evaluate the mapping function 
si, af=flipud(a); bf-flipud([1;b]); 
5» Z=zeta.*polyval (af ,zeta4) ./polyval (bf ,zeta4) ; 


E: SeSe 


12.11 Determining Harmonic Functions in a Circular Disk 


The problem of determining a function that is harmonic for |z| < 1 and satisfies 
certain boundary conditions can be analyzed effectively using series methods. In 
problems pertaining to the unit circle, it is often convenient to consider a function 
u, in polar cordinates, and write u(r, 0). Simultaneously, we may wish to think in 
terms of the related complex variable z = r ø where ø = €??. Three basic problems 
will be considered. 


I) Dirichlet Problem 
Nus. Te 


u(1,0) = f() , 0x0-x2m 


We assume / (0) is a real piecewise continuous function expandable in a Four- 
ler series as 


f(8) = 5 fao” , Jn Ta 


n=— oo 


Then u is given by the series 


u= fo + 2real( X` faz”) , |z <1 


n=1 


II) Neumann Problem 
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III) 


We assume that the gradient function g is expandable in a Fourier series as 


oo 


g(0) = 5 MO” , Q-n =Jn- 


n=— oo 


The solution only exists if the integral of g(0) with respect to arc length around 
the boundary is zero. Hence, when 


1 2m 
= 0) dd = 
Jo zi g(0) 0, 


then the series solution is 
oo g 
= 2real X (2) ")-rFe , <1 
u (2. "JE )+c |z| < 


where c is an arbitrary real constant. 


Mixed Problem 


In the third type of problem the function value is specified on one part of the 
boundary and the normal gradient is specified on the remainder. In the general 
situation a solution can be constructed by methods using Cauchy integrals [73]. 
Only a simple case will be examined here. We require 


V?u — 0 jz) « 1 


u(1,0)=f(0) , 0<0< b2 
Ou(1,0 
ATP) Law , 02 <0 «(2n +01) 
Or 
For convenience use the notation 
L: z—e69. 0 <0< Ob 
L: z=, 65«0«(2r-c61) 


The mixed problem can be reduced to a case where g is zero by first solving a 
Neumann problem for a harmonic function v such that 


Ov 

ey ee LU 

Ar g(0) , z€ 
Ov Sa gO) a9 —- 
Or iB 05 = 01 , 


Then we replace f(@) by f(0) — v(1, 6) to get a problem where 


u-—f(0)—v(10 , zcL 
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Ou 

im 
The complete solution then equals the sum of u and v. Consequently, no loss 
of generality results in dealing with the problem 


0, zer 


u-f , zeL 


Ou 
= —0 L 
Ór y SE 
Consider the function 
R(z-4/(z—a)(z—b) , a=e™ , bee 
defined in the complex plane cut along L. We choose the branch of R satisfy- 
ing 
R(0) zi ei(91 +02) /2 
The solution to the mixed boundary value problem can be expressed as 


R(z) f(t) dt 
Ti n R* (t)(t — By! 


u = real( , t=e" , 01«0«05 


where R*(t) means the boundary value of R(z) on the inside of the arc. As 
an example take 


u-—cos(ü) , — 
Carrying out the integration gives 
u — real( F(z)) 
where 
zt¢z-44+(1-275)vV224+1 
9 , 
and the square root equals +1 at z = 0. This function is employed as a test 


case in subsequent calculations. The exact solution is evaluated in function 
mbvtest. 


F(z) = PES 


12.11.14 Numerical Results 


The function lapercl solves either Dirichlet or Neumann problems for the unit 
disk. The boundary values are specified as piecewise linear functions of the polar 
angle. Then function lintrp is used to obtain a dense set of boundary values which 
are transformed by the FFT to produce coefficients in the series solution. When 
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lapercl is executed with no input data, a Dirichlet problem is solved having the 
boundary condition 


E cos(160) T T 

apod c TR i - E 
cos(160) T 30 
u(1, 0) = 10 ; 3 «0« > 


This chosen boundary condition produces the interesting surface plot shown in Fig- 
ure 12.6 where the solution was evaluated on a polar coordinate grid employing 
constant radial and angular increments. 

The mixed boundary value problem is more difficult to handle than the Dirichlet 
or Neumann problems because numerical evaluation of the Cauchy integral must be 
performed cautiously. As z approaches a point on L, the integrand becomes singular. 
Theoretical developments involving Cauchy principal value integrals and the Plemelj 
formulas are needed to handle this situation thoroughly [73]. Even when z is close to 
the boundary, large integrand magnitude may cause inaccurate numerical integration. 
Furthermore, the integrand will have square root type singularities at the ends of L 
unless f(a) — f(b) — 0. Regularization procedures that can cope fully with these 
difficulties [26] will not be investigated in this text. Instead a simplified approach is 
presented. 

The function cauchint was written to evaluate a contour integral involving a gen- 
eral density function f (C) defined on a curve L of general shape. We consider 


rea. i104 


2mi Jp Q—z 


with both the density function f and the shape of L being defined using cubic spline 
interpolation. A set of points 


[ers Gd esa] , C=E+in 


lying on L, along with boundary values 


[f (61). f (62). f] = [Fis fas fm] 


are given. Spline functions ¢(t), f(t) are defined for 1 < t < m such that 


CU) 9 6 and fins g=1,2,...,n 


The integrand in parametric form becomes 


J= f(t) Meee 


and this integral is evaluated using function gequad which computes Gaussian base 
points and weight factors using eigenvalue methods. It should be remembered that 
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Dirichlet Problem Inside the Unit Circle 


function u 


y axis 


x axis 


Figure 12.6: Dirichlet Problem Inside the Unit Circle 


when z is a point on the contour of integration, the integrand has a first order sin- 
gularity. Hence, procedures to regularize the integrand would be needed to achieve 
accurate numerical integration in such cases. 

Function cauchtst was employed to produce an approximate solution of the prob- 
lem cited above. A surface plot of the exact solution appears in Figure 12.7. A plot 
of the difference between the exact and approximate solutions for 0 € r < 0.99 is 
shown in Figure 12.8. This error is about three orders-of-magnitude smaller than the 
maximum function values in the solution. The reader can verify that using r — 0.999 
and —7/2 < 0 < 7/2 leads to much larger errors. The authors have found function 
cauchint to be helpful if proper caution is exercised for results involving points near 
the boundary. 
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Approximate Solution to a Mixed Boundary Value Problem 


SOON 


Solution Value 


yess x axis 


Figure 12.7: Approximate Solution to a Mixed Boundary Value Problem 


Difference Between Exact and Approximate Solutions 


Solution Error 


yanis, x axis 


Figure 12.8: Difference Between Exact and Approximate Solutions 
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12.11.2 Program Output and Code 


Function lapercl 


25: 


99 RO. oce. SNe 


. function [u,r,th]=lapcrcl 


(bvtyp,bvdat,rvec,thvec,nsum) 


[u,r,th]-lapcrcl(bvtyp,bvdat,rvec,thvec,nsum) 


This function solves Laplace’s equation 
inside a circle of unit radius. Either a 
Dirichlet problem or a Neumann problem can be 
analyzed using boundary values defined by 
piecewise linear interpolation of data 


Specified in 


bvtyp = 


bvdat - 


rvec,thvec - 


nsum y 


terms of the polar angle. 


parameter determining what type 
of boundary value problem is 
solved. If bvtyp equals one, 
boundary data specify function 
values and a Dirichlet problem 

is solved. Otherwise, the 
boundary data specify values 

of normal gradient, and a Neumann 
problem is solved if, in accord 
with the existence conditions for 
this problem, the average value 
of gradient on the boundary is 
zero (negligibly small in an 
approximate solution). 

a matrix of boundary data. Each 
bvdat(j,:) gives a function value 
and polar angle (in degrees) of 

a data point used by function 
lintrp to linearly interpolate 
for all other boundary values 
needed to generate the solution. 
vectors of radii and polar 
coordinate values used to form a 
polar coordinate grid of points 
inside the unit circle. No values 
of r exceeding unity are allowed. 
the number of terms summed in the 
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Sh series expansion of the analytic 


az h function which has u as its real 
43: h part. Typically, no more than one 
aa: h hundred terms are needed to 

45: o produce a good solution. 

46: y 

at: 4 U - values of the harmonic function 
as: h evaluated at a set of points on 
49: h a polar coordinate grid inside 
50: % the unit circle. 

s: Eth - the grid of polar coordinate 

sa: h values in which the function is 
53: % evaluated 


s 4 User m functions called: lintrp 

s; ^ Default test case solves a Dirichlet problem 
s ^ for a function having the following exact 

; ^ solution: 


. 4 -1/2*rimag(log((z-i)/(z*i))/pi)*real(z^16)/10 


; if nargin -- 


bvtyp-1; th-linspace(0,2*pi,201)'; 

bv-1- (th»pi/2)*(th»3*pi/2)*cos(16*th)/10; 
bvdat=[bv,180/pixth] ; 
rvec=linspace(1,0,10); 
thvec-linspace(0,360,161); nsum=200; 


; end 


: nft=512; 

. thfft-linspace(0,2*pi*(nft-1)/nft,nft); 
; if nargin«5, nsum=200; end; 

; nsum=min(nsum,nft/2-1); 

s fbv-bvdat(:,1); thbv-pi/180*bvdat(:,2); 
. nev=size(bvdat,1); nr-length(rvec); 

. nth-length(thvec); neval-nr*nth; 

; [R, Th] zmeshgrid (rvec,pi/180*thvec); 

: r-R(:); th-Th(:); 


: ^ Check for any erroneous points outside the 
. 4 unit circle 

; rvec=rvec(:); 

. kout=find(rvec>1); nout-length(kout); 

. if length(kout)>0 
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print(?Input data are incorrect. The ?); 
print(’following r values lie outside the ’); 
print(?unit circle:’); disp(rvec(kout)?); 
return 


; end 


; if bvtyp--1 4 Solve a Dirichlet problem 


^ Check for points on the boundary where 

^ function values are known. Interpolate 

^ these directly 

konbd-find(r--1); onbndry-length(konbd); 

if onbndry > 0 
u(konbd)-lintrp(thbv,fbv,th(konbd)); 

end 


%, Evaluate the series solution 
kinsid=find(r<1); inside=length(kinsid) ; 


if inside > 0 
a-fft(lintrp(thbv,fbv,thfft)); 
a-a(1:nsum)/(nft/2); 
a(1)=a(1)/2; Z=r(kinsid) .*exp(i*th(kinsid)); 
u(kinsid)=real (polyval (flipud(a(:)),Z)); 

end 


titl= ... 
^?IDirichlet Problem Inside the Unit Circle’; 


else % Solve a Neumann problem 


gbv-lintrp(thbv,fbv,thfft); 

a=fft(gbv)/(nft/2) ; 

erchek-abs (a(1))/sum(abs(gbv)) ; 

if erchek>1e-3 
disp? "55 
disp(C ERROR DUE TO NONZERO AVERAGE VALUE’); 
disp(’OF NORMAL GRADIENT ON THE BOUNDARY.?); 
disp(’ CORRECT THE INPUT DATA AND RERUN.?); 
disp 7); u=[]; r=[]; th=[]; return; 

end 

a-a(2:nsum)./(1:nsum-1)?; z=r.*exp(i*th) ; 

u=real (polyval (flipud([0;a(:)]),z)); 

titl=’Neumann Problem Inside the Unit Circle’; 


; end 


. u=reshape(u,nth,nr); r-R; th-Th; 
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3: Surf (r.*cos(th) ,r.*sin(th),u); 

3» Xlabel(’x axis’); ylabel(’y axis’); 
33, Zlabel(’function u?); title(titl); 
34: Colormap(’default’) ; 

3: grid on; figure(gcf) ; 

36: ^ print -deps dirich 


a: ^ function y-lintrp(xd,yd,x) 
a: 4 See Appendix B 


Function cauchtst 


. function u-cauchtst(z,nquad) 
0 


1 
2: 
3: 4 u=cauchtst (z,nquad) 
4 


« 4 This function solves a mixed boundary 
7t ^ value problem for the interior of a circle 
s 4 by numerically evaluating a Cauchy integral. 


ik x - matrix of complex coordinates where 
u: % function values are computed 

12: 4^ nquad - order of Gauss quadrature used to 
13 A perform numerical integration 

14 h 

s: u - computed values of the approximate 
16: h solution 

IT: 4, 

is: 4 User m functions called: cauchint, mbvtest, 
19: 4 gcquad, splined 


a: if nargin<2, nquad=50; end; nbdat=61; 

2: if nargin-- 

2» — Z-linspace(0,.99,10)?* ... 

24: exp(i*linspace(0,2*pi,91)); 

25; end 

26; th-linspace(-pi/2,pi/2,nbdat); zb=exp(ixth) ; 

27: fb-sqrt(zb-i).*sqrt(zb*ti); fb(1)=1; fb(nbdat)=1; 
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2: fb-cos(th)./fb; fb(1)=0; fbCend)=0; 
o9. F= 
SF 


cauchint(fb,zb,z,nquad); 
F.*sqrt(z-i).*sqrt(z*i); u-2*real(F); 


. surf(real(z),imag(z),u); xlabel(’x axis’); 
; ylabel(’y axis’); zlabel(’Solution Value?) 
; title([’ "Approximate Solution to ’, 


^a Mixed Boundary Value Problem' 133 


3: grid on; figure(gcf); "^gra(.4); 

à . fprintf (° \nPress [Enter] to solution error\n’); 
ss pause 

39: Aprint -deps caucher1 

; uexact-mbvtest(z,1); udif-u-uexact; 

. clf; surf(real(z),imag(z),udif); 

; title([’Difference Between Exact and ’, 


’ Approximate Solutions’]); 


. Xlabel(’x axis’); ylabel(’y axis’); 
s zlabel(?Solution Error?) 

. grid on; figure(gcf); "^gra(.4) 

. Aprint -deps caucher2 


si. function u-mbvtest(z,noplot) 


u=mbvtest (z,noplot) 


This function determines a function which is 
harmonic for abs(z)<1 and satisfies at r=1, 
u-cos(theta), -pi/2<theta<pi/2 
du/dr=0, pi/2<theta<3*pi/2 
The solution only applies for points inside 
or on the unit circle. 


Z - matrix of complex values where the 
solution is computed. 

noplot - option set to one if no plot is 
requested, otherwise option is not 
required. 


u - values of the harmonic function 
defined inside the unit circle 


User m functions called: none 
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7; if nargin-- 

7: — noplot-0; 

7;  Z-linspace(0,1,10)?* ... 

78: exp(i*linspace(0,2*pi,81)); 

7s end 

s: [n,m]2size(z); z=z(:); u=1/2*ones(size(z)); 

s: k=find(abs(z)>0); Z=z(k); 

s2 U=(Zt+1./Z+(1-1./Z) . *sqrt (Z-i) .*sqrt (Zt+i))/2; 
s: u(k)-real(U); u-reshape(u,n,m); 

s4 if nargin--1 | noplot-- 

a»  z=reshape(z,n,m); 

s:  surf(real(z),imag(z),u); xlabel(’x axis’); 
s; ylabel(’y axis’); 

s: — title(['Mixed Boundary Value Problem ’, 

89: >for a Circular Disk’]); 

o: grid; figure(gcf); %gra(.4), pause 

9: print -deps mbvtest 

9» end 


ə: function F=cauchint (fb,zb,z,nquad) 
os: 4 F=cauchint (fb,zb,z,nquad) 


oo: % 
oi; ^ This function numerically evaluates a Cauchy 
o» ^ integral of the form: 


os 4 F(z)=1/(2*pixi)*Integral (f(t) /(t-z) *dt) 


os ^ where t denotes points on a curve in the 

o ^ complex plane. The boundary curve is defined 
os ^ by spline interpolation through data points 
o» ^ zb lying on the curve. The values of f(t) 

o ^ are also specified by spline interpolation 
1. ^ through values fb corresponding to the 

z ^ points zb. Numerical evaluation of the 

3: ^ integral is performed using a composite 

4 ^ Gauss formula of arbitrary order. 


5 h 
€ ^4 fb - values of density function f 
zh at point on the curve 
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2 


. 4 zb Uc 


. 4 nquad - 


points where fb is given. The 
number of values of zb must be 
adequate to define the curve 
accurately. 

a matrix of values at which the 
Cauchy integral is to be evaluated. 
If any of the z-values lie on path 
of integration or too close to the 
path of integration, incorrect 
results will be obtained. 

the order of Gauss quadrature 
formula used to perform numerical 
integration 


The value of the Cauchy integral 
corresponding to matrix argument z 


s 4 User m functions called: gcquad splined 


ss n-length(fb); [nr,nc]-size(z); z=z(:).’; 
3» nz-length(z); t-1:n; 

: [dummy bp, 
: fg=spline(t,fb,bp); zq-spline(t,zb,bp); 
. zqd=splined(t,zb,bp); nq=length(fq) ; 

: fq=fq(:) .*zqd(:); 


wf]=gcquad(’’,1,n,nquad,n-1) ; 


s. bdrylen=sum(abs (zq(2:nq)-zq(1:ng-1))); 


: closnes-1e100; bigz=max(abs(z)) ; 
: for j-1:nq 


closnes=min([closnes,abs(zq(j)-z)]); 


so: end 
5: if closnes/bdrylen<.01 | closnes/bigz<.01 


disp(’ ?) 

disp([’WARNING! SOME DATA VALUES ARE ', 
'EITHER NEAR OR ON’]); 

disp([’THE BOUNDARY. COMPUTED RESULTS ’, 
'"MAY BE INACCURATE’]); disp(’ ’) 


57: end 
ss Fewf(:)?*(fqC:,ones(1,nz)) ./(zq(:,ones(1,nz))... 
-z(ones(nq,1),:))); 


. F=reshape(F,nr,nc)/(2*pi*i) ; 


© 2003 by CRC Press LLC 


6: h function [val,bp,wf]=gcquad(func,xlow,... 
65: % xhigh,nquad,mparts,varargin) 
o5 ^ See Appendix B 


7x: 4 function val-splined(xd,yd,x,if2) 
7: ^ See Appendix B 


[a um———————————— 


12.12 Inviscid Fluid Flow around an Elliptic Cylinder 


This section analyzes inviscid flow around an elliptic cylinder in an infinite field. 
Flow around a circular cylinder is treated first. Then the function conformally map- 
ping the exterior of a circle onto the exterior of an ellipse is used in conjunction with 
the invariance of harmonic functions under a conformal transformation. Results de- 
scribing the elliptic cylinder flow field for uniform velocity components at infinity 
are presented. 

Let us solve for the flow around a circular cylinder in the region |¢| > 1, ¢ = €+in 
with the requirement that the velocity components at infinity have constant values 


u=U , v=V 


where (u,v) are the horizontal and vertical components of velocity. These compo- 
nents are derivable from a potential function @ such that 


8% 2 
0€ | 0g 


where $ is a harmonic function. The velocity normal to the cylinder boundary must 
be zero. This requires that the function v», the harmonic conjugate of ¢, must be con- 
stant on the boundary. The constant can be taken as zero without loss of generality. 
In terms of the complex velocity potential 


SQ — 6 iv 


we need QM 
f(c)—f(6)-0 on |¢j=1 


The velocity field is related to the complex velocity potential by 
u—iv= f'(C) 
so the flow condition at infinity is satisfied by 


f(Q =pC+O(1) where p=U-iV 
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A Laurent series can be used to represent f (Ç) in the form 


FC) = pet aot So ang 


n=1 
Imposition of the boundary condition on the cylinder surface requiring 
f(c)—- f(c) 20 where o= e° 
leads to 


po + ao + X as — o`! ege No ano” =0 
n=1 n=1 
Taking ao = 0, a1 = p, and an = 0, n > 2 satisfies all conditions of the problem 
and yields 
FO = pe + peT! 


as the desired complex potential function giving the velocity field as 
u-iv=f'(Q)=p-pe* , Q21 


Now consider flow about an elliptic cylinder lying in the z-plane. If the velocity 
at infinity has components (U, V) then we need a velocity potential F(z) such that 
F'(oo) = U — iV and 


This is nearly the same problem as was already solved in the ¢-plane except that 


dF d¢dF | 1 dF 
dz dzd (Q de 


where w(¢) is the mapping function 


a+b a—b 
2 : a+b 


z—w(Q-R( tmo) , R= 
In terms of G we would need 
—- —w'(oo)|U —iV| = R(U —iV) at ¢=00 


Consequently, the velocity potential for the elliptic cylinder problem expressed in 
terms of ¢ is 

F-p(tpQ , p= RU -wW) 
and the velocity components in the z-plane are given by 


1 


(U — iV) — (U - iV)? 
w"(¢) l 


u-iw= a p-r- ELT 
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To get values for a particular choice of z we can use the inverse mapping function 


z + Vz?—AmR? 
2R 


¢ = 
to eliminate ¢ or we can compute results in terms of C. 
To complete our discussion of this flow problem we will graph the lines charac- 
terizing the directions of flow. The velocity potential F = ¢ + iy satisfies 


06 aw õp æ 


“= 0z Oy í "= By Ox 
so a curve tangent to the velocity field obeys 


dy v Ow /Ox 


dv u Ovy/8y 
Or B à 
gee! SENI) , "V = constant 
Ox Oy 


Consequently, the flow lines are the contours of function v, which is called the 
stream function. The function we want to contour does not exist inside the ellipse, 
but we can circumvent this problem by computing y in the ellipse exterior and then 
setting 1/ to zero inside the ellipse. The function elipcyl analyzes the cylinder flow 
and produces the accompanying contour plot shown in Figure 12.9. 
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Elliptic Cylinder Flow Field for Angle = 30 Degrees 
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Figure 12.9: Elliptic Cylinder Flow Field for Angle = 30? 


12.12.1 Program Output and Code 


Function elipcyl 


. function [x,y,F]=elipcyl(a,n,rx,ry,ang) 


^ [x,y,Fl-elipcyl(a,n,rx,ry,ang) 


^ This function computes the flow field around 
^ an elliptic cylinder. The velocity direction 
at infinity is arbitrary. 


^a - defines the region -a<x<a, -a<y<a 

j^ within which the flow field is 

y computed 

% n - this determines the grid size which 
y4 uses n by n points 

^ rx,ry - major and minor semi-diameters af the 
% ellipse lying on the x and y axes, 


PEE e UB. des R (05 100 Tode e SH E S 
e 
2x 
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sh respectively 


is 4 ang - the angle in degrees which the 

19: h velocity at infinity makes with the 
2: % x axis 

2: % 

2: ^ X,y  - matrices of points where the velocity 
23: % potential is computed 

aa: h F - matrix of complex velocity potential 
25: % values. This function is set to zero 
26: inside the ellipse, where the 

27: h potential is actually not defined 


2: 4 User m functions called: none 


. ^ default data for a 2 by 1 ellipse 
; if nargin-- 


a=5; n-81; rx-2; ry-1; ang=30; 


; end 


. ^ Compute a square grid in the z plane. 
s; ar-pi/180*ang; p=(rxtry)/2*exp(-i*ar) ; 
. cpeconj(p); d-linspace(-a,a,n); 

3: [x, y]=meshgrid(d,d); m-sqrt(rx^2-ry^2); 


; ^ Obtain points in the zeta plane outside 

. 4 the ellipse 

. z=x(:)+i*y(:); k=find((x/rx) .72+(y/ry) .*2>=1); 
. Z=z(k); zeta-(Z*sqrt(Z-m).*sqrt (Z*m)) / (xx*ry) ; 
s F=zeros(n*n,1); 


. ^ Evaluate the potential for a circular 
. 4 cylinder 
. F(k)=p*zetatcp./zeta; F-reshape(F,n,n); 


s; 4 Contour the stream function to show the 
5»: ^4 direction of flow 


s clf; contourf(x(1,:),y (1; D ;abs(imag(F)) 30); 
s; axis(’square’); zb=exp(ixlinspace(0,2*pi,101)); 
s: xb=rx*real(zb); yb=ry*imag(zb) ; 

s; xb(end)=xb(1); yb(end)=yb(1) ; 

s: hold on; fill(xb,yb, [127/255 1 212/255]); 

. Xlabel(’x axis’); ylabel(’y axis’); 

; title(['Elliptic Cylinder Flow Field for ’, 


’ Angle = ?,num2str(ang),? Degrees’]); 
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o» colormap hsv; figure(gcf); hold off; 
os Aprint -deps elipcyl 


12.13 Torsional Stresses in a Beam Mapped onto a Unit Disk 


Torsional stresses in a cylindrical beam can be computed from an integral formula 
when the function z = w(¢) mapping the unit disk, |C| < 1, onto the beam cross 
section is known [90]. The complex stress function 


- al pL da 


where y denotes the unit circle, can be evaluated exactly by contour integration in 
some cases. However, an approach employing series methods is easy to implement 
and gives satisfactory results if enough series terms are taken. When w(C) is a poly- 
nomial, f(¢) is a polynomial of the same order as w(¢). Furthermore, when w(C) 
is a rational function, residue calculus can be employed to compute f(¢) exactly, 
provided the poles of W(1/Ç) can be found. A much simpler approach is to use the 


FFT to expand w(c)w(o) in a complex Fourier series and write 


FO 


+ constant, 


Then the complex stress function is 
oo 
fü iV Cn G^ + constant 
n=1 


where the constant has no influence on the stress state. The shear stresses relative to 
the curvilinear coordinate system are obtainable from the formula 


we IG 


where p is the shear modulus and e is the angle of twist per unit length. The capital 
Z subscript on shear stresses refers to the direction of the beam axis normal to the 
xy plane rather than the complex variable z = x + zy. The series expansion gives 


FO 2 i menor 
n=l 


and this can be used to compute stresses. Differentiated series expansions often 
converge slowly or may even be divergent. To test the series expansion solution, a 
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Torsional Shear Stresses on a Square Cross Section 
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Number of Series Terms = 800 
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Figure 12.10: Torsional Shear Stresses on a Square Cross Section 


rational function mapping |¢| < 1 onto a square defined by |x| < 1 and |y| € 1 was 
employed. Function mapsqr which computes z(¢) and z'(C) is used by function 
torstres to evaluate stresses in terms of C. A short driver program runtors evaluates 
stresses on the boundary for x = 1, 0 < y < 1. Stresses divided by the side length of 
2 are plotted and results produced from a highly accurate solution [90] are compared 
with values produced using 800 terms in f(¢). Results depicted in Figure 12.10 
show that the error in maximum shear stress was only 0.44% and the torsional stiff- 
ness was accurate within 0.0596. The numerical solution gives a nonzero stress value 
for y — 1, which disagree with the exact solution. This error is probably due more to 
the mapping function giving slightly rounded corners than to slow convergence of the 
series solution. Even though the differentiated series converges slowly, computation 
time is still small. The reader can verify that using 1500 terms reduces the bound- 
ary stress oscillations to negligible magnitude and produces a maximum stress error 
of 0.0396. Although taking 1500 terms to achieve accurate results seems excessive, 
less than 400 nonzero terms are actually involved because geometrical symmetry im- 
plies a series increasing in powers of four. For simplicity and generality, no attempt 
was made to account for geometrical symmetry exhibited by a particular mapping 
function. It appears that a series solution employing a mapping function is a viable 
computational tool to deal with torsion problems. 
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12.13.1 Program Output and Code 


Program runtors 


; function runtors(ntrms) 
^ Example: runtors(ntrms) 


^ Example showing torsional stress computation 
^ for a beam of square cross section using 

^ conformal mapping and a complex stress 

; ^ function. 


D OO EAR oh UE. ao oc br. Ue 
e 
ex 


1: 4 ntrms - number of series terms used to 
iB represent abs(w(zeta))^2 


: 4 User m functions called: torstres, mapsqr 


i: 4 Generate zeta values defining half of a side 
1: theta-linspace(0,pi/4,501); zeta=exp(i*theta) ; 
iz if nargin--0, ntrms=800; end 


: 4 Compute stresses using an approximate rational 
2: 4^ function mapping function for the square 

a: [tr,ta,z,c,C]= 

2:  torstres('mapsqr!,zeta,ntrms,4*1024); 


2: 4^ Results from the exact solution 

25: n71:2:13; 

2: tmexact-1-8/pi^2*sum(1./(n.^2.*cosh (n*pi/2))); 
2: err=abs (ta(1) /2-tmexact)*100/tmexact ; 

zs Stfexct-16/3-1024/pi^ 5*sun (tanh (pi/2sm) . /n.^5); 
2: stfaprx=8/3-pi*xsum((1:ntrms)? .%* 

30: abs(C(2:ntrms4*1)).^2); 

si. Ster-100*abs(stfaprx-stfexct)/stfexct; 


3: 4 Plot circumferential and normal stresses at 
34 ^ the boundary 

35 th=180/pixtheta; 

3: clf; plot(imag(z) ,tr/2,’k:’,imag(z) ,ta/2,’k-’) 
3: Xlabel(’y distance along the side’); 

3: ylabel(’shear stresses at the boundary’); 

3: title([’Torsional Shear Stresses on a °, 

40: 'Square Cross Section’]); 
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65: 
. ^ a beam such that abs(zeta)<=1 is mapped onto 
. ^ the beam cross section by a function named 

. 4 mapfun. 


N Oo C 


$ 


; text(.05,.40, 


[Max Shear Stress = ?,num2str(max(ta)/2)]); 
. text(.05,.34, ... 

[Number of Series Terms = ?,num2str(ntrms)]); 
; text (.05,.28, 


['Maximum Stress Error = ’ ,num2str(err),’%’]); 


; text (.05,.22, ['Stiffness Factor Error = ^, 


num2str(ster),']); 


: legend(C Radial shear stress’,... 


’Tangential shear stress’); 


. figure(gcf) ; 

; fdisp(’Use mouse to locate legend block’); 
. hdisp(’Press [Enter] when finished’); 

. Aprint -deps torsion 


. function [trho,talpha,z,c,C]- 


torstres(mapfun,zeta,ntrms,nft) 


: 4 [trho,talpha,z,c,C]- í 
NA torstres(mapfun,zeta,ntrms,nft) 


^ This function computes torsional stresses in 


. ^ mapfun - a character string giving the name 


T of the mapping function 
. 4 zeta - values in the zeta plane 
m corresponding to which torsional 
Seh stresses are computed 
. ^ ntrms - the number of terms used in the 
^ Series expansion of the mapping 
=% function 
:% nft - the number of function values 
7h employed to compute Fourier 
Sh coefficients of the complex stress 
Sie function 

0 

h 
: 4 trho - torsional stresses in directions 
m normal to the lines into which 
mS abs(zeta)-const map. These values 
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NU should be zero at the boundary 
= de corresponding to abs(zeta)=1. 
. 4 talpha - torsional stresses in directions 


^ tangent to the curves into which 
Sh abs(zeta)-const map. The maximum 
WA value of shear stress always occurs 
sh at some point on the boundary defined 
2 by abs(zeta)-1. 
b hZ - values of z where stresses are 
esis computed 
oy Ae - coefficients in the series expansion 
(0 of the complex stress function 
CAO - complex Fourier coefficients of 
P z.*conj(z) on the boundary of the 
:% beam cross section 


; 4^ User m functions called: none 


; if nargin<4, nft-4096; end; 
; lf nargin<3, ntrms-800; end 


: 4 Compute boundary values of the mapping 

. 4 function needed to construct the complex 

; 4 stress function 

; zetab-exp(i*linspace(0,2*pi*(nft-1)/nft,nft)); 
. zb=feval(mapfun,zetab); zb=zb(:); 


; 4^ Evaluate z and z’(zeta) at other 
: 4 desired points 


[z,zp]=feval (mapfun, zeta) ; 


; ^ Compute Fourier coefficients for the complex 
. 4 stress function and its derivative 

; C=fft(zb.*conj(zb))/nft; 

;: cei*C(2:ntrms*1).*(1:ntrms)?; 

: fpepolyval(flipud(c),zeta); 


. 4 Evaluate stresses relative to the curvilinear 
: 4 coordinate system 
. tcplx=zeta./abs(zeta.*zp) .*(fp-i*conj(z) .*zp) ; 


; 4 trho is the radial shear stress that should 
. 4 vanish at the boundary 
; trho-real(tcplx); 


© 2003 by CRC Press LLC 


. 4 talpha is the circumferential stress which 
3 ^ gives the maximum stress of interest at the 
34 ^ boundary 

s talpha--imag(tcplx); 


3: function [z,zp]=mapsqr (zeta); 

.% (z,zp]=mapsqr (zeta) 

. 4 This function maps the interior of a circle 

s ^ onto the interior of a square using a rational 


; ^ function of the approximate form: 


: 4 z(zeta)=zeta*Sum(a(j)* ... 
-h zeta4^(j-1)/(1+Sum(b(j)*zeta4^(j-1)) 


s; 4 where zeta4=zeta^4 


5: ^ zeta - matrix of complex values such that 


54 h abs(zeta)«-1 
55: ^ Z,Zp - matrices of values of the mapping 
56: % function and its first derivative 


ss 4 User m functions called: none 


» a=[ 1.07835, 1.37751, -0.02642, -0.09129, 


0.13460, -0.15763, 0.07430, 0.14858, 
0.01878, -0.00354 ]’; 


: b=[ 1.37743, 0.07157, -0.11085, 0.12778, 


-0.13750, 0.05313, 0.14931, 0.02683, 
-0.00350, -0.000120 ]?’; 


s: 4 Evaluate the mapping function 
» zeta4-zeta.^4; p-zeta.*polyval(flipud(a),zeta4); 
: q=polyval(flipud([1;b]),zeta4); z=p./q; 


.% Exit if the derivative of z is not needed 
; if nargout--1, return, end 


; 4 evaluate z’ (zeta) 
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ive: na=length(a); nb=length(b) ; 

177: pp=polyval (flipud((4*(1:na)’-3) .*a) ,zeta4) ; 

is Qp=4*zeta.~3.*polyval(flipud((1:nb)’.*b) ,zeta4) ; 
1» Zp7(q.*pp-p.*qp) ./q.^2; 
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12.14 Stress Analysis by the Kolosov-Muskhelishvili Method 


Two-dimensional problems in linear elastostatics of homogeneous bodies can be 
analyzed with the use of analytic functions. The primary quantities of interest are 
cartesian stress components Trz, Tyy, and 7;,, and displacement components u and 
v. These can be expressed as 


Tax d Tyy = 2|6(z) F 4(z)) 
—Taa + Tyy + 2iTey = 2[z9 (z) + W(z)] 


2u(u + iv) = s(z) — 2B) - BE) 


where u is the shear modulus and & depends on Poisson's ratio v according to 
k = 3 — 4v for plane strain or x = (3 — v)/(1 + v) for plane stress. The above 
relations are known as the Kolosov-Muskhelishvili formulas [73] and they have been 
used to solve many practical problems employing series or integral methods. Bod- 
ies such as a circular disk, a plate with a circular hole, and a circular annulus can 
be handled for quite general boundary conditions. Solutions can also be developed 
for geometries where a rational function is known that maps the interior of a circle 
onto the desired geometry. Futhermore, complex variable methods provide the most 
general techniques available for solving a meaningful class of mixed boundary value 
problems such as contact problems typified by pressing a rigid punch into a half 
plane. 

Fully understanding all of the analyses presented in [72, 73] requires familiarity 
with contour integration, conformal mapping, and multivalued functions. However, 
some of the closed form solutions given in these texts can be used without extensive 
background in complex variable methods or the physical concepts of elasticity the- 
ory. With that perspective let us examine the problem of computing stresses in an 
infinite plate uniformly stressed at infinity and having a general normal stress N(0) 
and tangential shear T'(0) applied to the hole. We will use the general solution of 
Muskhelishvili! [72] to evaluate stresses anywhere in the plate with particular inter- 
est on stress concentrations occurring around the hole. The stress functions V and ® 


! Chapter 20. 
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can be represented as follows 


oe) - —.L. f (Code 


^tadfzl-óz?7 , ge 
271 


y g —2 


where y denotes counterclockwise contour integration around the boundary of the 
hole and the other constants are given by 


_ Tex + Tyy po Lise Twy Pty 
4 , 2 
k 1 [7 T 
L-— — N +T)e” dé 
P l4 & 27 Jo erate 


Parameters o and ô depend only on the components of stress at infinity, while 8 is 
determined by the force resultant on the hole caused by the applied loading. The 
quantity N + T is the boundary value of radial stress 7,, and shear stress 7,9 in 
polar coordinates. Hence 


N+ =Tr+itre , d|z|—1 


The transformation formulas relating Cartesian stresses Trz, Tyy, Txy and polar co- 
ordinate stresses Trr, T99, Tro are 


; 240 
Trr + Too = Trz + Tyy > —Trr T Too + QT 6 = (us + Tyy F 2iryy)e 


Let us assume that N 4- ?T' is expandable in a Fourier series of the form 
oo 
N+i1T= 5 Cno” , o= e” 
n--—oo 
where cn can be obtained by integration as 


1 27 


~ On Jo 


(N +iT)o~” dO 


Cn 


or we can compute the approximate coefficients more readily using the FFT. 
The stress function V (z) is related to ®(z) according to 


v-x9(i)-z ee) s a21 
z Z dz |z 


Substituting the complex Fourier series into the integral formula for ® gives 


oo 
$—— M cz +a +p! + 8z? , kĮ<1 
n=0 
oo 
P= bu +at+ Bz +62 , |zz1 
n=l 
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which has the form 


oo 
p = Ma , |z| 2-1 
n=0 


These two relations then determine V as 
Y = ô + 621+ (a+ ao —tH) 27+ 5 [((n — 1)an—2 —en-2]z " 
n=3 
The last equation has the form 


D S bye" , |z| 1 
n=0 


where the coefficients b,, are obtainable by comparing coefficients of corresponding 
powers in the two series. Hence, the series expansions of functions ®(z) and (z) 
can be generated in terms of the coefficients c,, and the stress components at infin- 
ity. The stresses can be evaluated by using the stress functions. Displacements can 
also be obtained by integrating ® and W, but this straightforward calculation is not 
discussed here. 

The program runplate was written to evaluate the above formulas by expanding 
N + iT using the FFT. Truncating the series for harmonics above some specified 
order, say np, gives approximations for ®(z) and V(z), which exactly represent 
the solution corresponding to the boundary loading defined by the truncated Fourier 
series. Using the same approach employed in Chapter 6 we can define N and T' as 
piecewise linear functions of the polar angle 0. 

The program utilizes several routines described in the table below. 


runplate | define N, T, stresses at infinity, z-points 
where results are requested, and the number 
of series terms used. 

platecrc | computes series coefficients defining the 
stress functions. 


strfun evaluates ®, V, and P’. 

cartstrs | evaluates Cartesian stresses for given values 
of z and the stress functions. 

rec2polr | transforms from Cartesian stresses to polar 
coordinate stresses. 

polflip simplified interface to function polyval. 


The program solves two sample problems. The first one analyzes a plate having 
no loading on the hole, and stresses at infinity given by 775 = 1,775 = Try = 0. 
Figure 12.11 shows that the circumferential stress on the hole varies between —1 and 
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Stress Concentration Around a Circular Hole in a Plate 


Circumferential Stress 
L 


Figure 12.11: Stress Concentration around a Circular Hole in a Plate 


3, producing a stress concentration factor of three due to the presence of the hole. 
The second problem applies a sinusoidally varying normal stress on the hole while 
the stresses at infinity are zero. Taking 


T=0; ti=[0,0,0]; 


th-linspace(0,2*pi,81); 
N=[cos(4*th), 180/pi*th]; 


gives the results depicted in Figure 12.12. Readers may find it interesting to inves- 
tigate how stresses around the hole change with different combinations of stress at 
infinity and normal stress distributions on the hole. 
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Harmonic Loading on a Circular Hole in a Plate 
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Figure 12.12: Harmonic Loading on a Circular Hole in a Plate 
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12.14. Program Output and Code 


Program runplate 


. function runplate(WhichProblem) 


Example: runplate(WhichProblem) 


Example to compute stresses around a 
circular hole in a plate using the 
Kolosov-Muskhelishvili method. 


User m functions required: 
platecrc, strfun, cartstrs, 
rec2polr, polflip, lintrp 


: if nargin-- 


titl=[’Stress Concentration Around a ’, 
Circular Hole in a Plate’]; 

N-0; T=0; ti-[0,1,0]; kapa-2; np-50; 

Nn=’N = 0’; Tt=’T = 0’; 

rz=linspace(1,3,20)’; tz-linspace(0,2*pi,81); 

z-rz*exp(i*tz); x-real(z); y-imag(z); 

viewpnt=[-40, 10] ; 


;: else 


titl-['Harmonic Loading on a Circular’, 

^ Hole in a Plate’]; 
th-linspace(0,2*pi,81)'; 
N7 [cos (4*th) , 180/pi*th] ; 
Nn=’N = cos(4*theta)’; Tt=’T = 0’; 
T=0; ti-[0,0,0]; kapa=2; np=10; 
rz=linspace(1,2,10)’; tz-linspace(0,2*pi,81); 
z-rz*exp(i*tz); x-real(z); y-imag(z); 
viewpnt=[-20, 20] ; 


; end 


. fprintf(’\nSTRESSES IN A PLATE WITH A °) 

. fprintf CCIRCULAR HOLE’) 

s fprintf(’\n\nStress components at infinity ?) 
3: fprintf Care: ^). fprintf("Ae& 7 ti)’ 

37: fprintf(’\nNormal stresses on the hole are ’) 
ss fprintf([’defined by ',Nn]); 

3: fprintf(’\nTangential stresses on the hole ?) 
. fprintf([?'are defined by ’,Tt]) 
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: fprintf ?\n’); 
. fprintf(’\nThe Kolosov-Muskhelishvili stress ?); 
s: fprintf (functions have\nthe series forms:’); 

si; fprintf(’\nPhi=sum(a(k)*z*(-k+1), k=1:np+1)’); 
s2: fprintf(’\nPsi=sum(b(k)*z*(-k+1), k=1:npt+3)’); 
ss: fprintf(’\n’); 
s: fprintf(’\nCoefficients defining stress ’); 
s fprintf(’function Phi are:\n’); 

s: disp(a(:)); 
s; fprintf(’Coefficients defining stress ’); 
s: fprintf(’function Psi are:\n’); 

: disp(b(:)); 


; displ... 

: ['Minimum Principal Stress 
: dispC... 

s [Maximum Principal Stress 
. fprintf(’\nPress [Enter] for a surface ?); 

. fprintf(?plot of the\ncircumferential stress ?); 
. fprintf(’?in the plate\n’); input(’’,’s’); clf; 

: close; colormap(’hsv’) ; 
. surf(x,y,tt); xlabel(’x axis’); ylabel(’y axis’); 
; Zlabel(?Circumferential Stress’); 
. title(titl); grid on; view(viewpnt); figure(gcf); 
: hif nargin--0, print -deps strconci 
. helse, print -deps strconc2; end 

. fprintf(^ All Done\n’) ; 
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. fprintf(’\nElastic constant kappa equals: ’) 
. fprintf (^ Ás? ,num2str (kapa) ) ; 
. fprintf(’\nHighest harmonic order used is: ’) 
. fprintf (^ Ás? ,num2str (np)) ; 


: [a,b, c] "platecrc(N,T,ti,kapa,np); 


; 4 Evaluate the stress functions 
. [Phi,Psi,Phip]=strfun(a,b,z); 


. ^ Compute the Cartesian stresses and the 
s ^ principal stresses 
. [tx,ty,txy,pti,pt2]-cartstrs(z,Phi,Psi,Phip); 
: theta-angle(z./abs(z)); x-real(z); y=imag(z) ; 
. [tr,tt,trt]-rec2polr(tx,ty,txy,theta); 

; pmin=num2str(min([pt1(:);pt2¢:)])); 

. pmax=num2str (max([pt1(:);pt2¢:)])); 


? num2str(pmin)]); 


? num2str (pmax) ]) ; 


. function [a,b,c]-platecrc(N,T,ti,kapa,np) 


[a,b,c]-platecrc(N,T,ti,kapa,np) 


This function computes coefficients in the 
Series expansions that define the Kolosov- 
Muskhelishvili stress functions for a plate 
having a circular hole of unit radius. The 
plate is uniformly stressed at infinity. On 
the surface of the hole, normal and tangential 
Stress distributions N and T defined as 
piecewise linear functions are applied. 


N - a two column matrix with each row 
containing a value of normal stress 
and polar angle in degrees used to 
Specify N as a piecewise linear 
function of the polar angle. Step 
discontinuities can be included by 
using successive values of N with the 
same polar angle values. The data 
should cover the range of theta from 
O to 360. N represents boundary values 
of the polar coordinate radial stress. 
A single constant value can be input 
when N is constant (including zero 
if desired). 

T - a two column matrix defining values of 
the polar coordinate shear stress on 
the hole defined as a piecewise linear 
function. The points where function 
values of T are specified do not need 
to be the same as as those used to 
Specify N. Input a single constant 
when T is constant on the boundary. 

ti - vector of Cartesian stress components 
[tx,ty,txy] at infinity. 

kapa - a constant depending on Poisson’s ratio 
nu. 

kapa-3-4*nu for plane strain 
kapa=(3-nu)/(1+nu) for plane stress 
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ey When the resultant force on the hole 


32: % is zero, then kapa has no effect on 

33: % the solution. 

3: ^ np  - the highest power of exp(ixtheta) used 
35: % in the series expansion of N*i*T. This 
36: ^ should not exceed 255. 

37: h 

3: Aa - coefficients in the series expansion 
32: f defining the stress function 

40: h Phi-sum(a(k)*z^(-k*1), k=1:np+1) 
a: 4 b - coefficients in the series expansion 
a2 h defining the stress function 

43: h Psi-sum(b(k)*z^(-k*1), k-1:np*3) 


2 


s 4 User m functions called: lintrp 


: 4 Handle case of constant boundary stresses 
. if length(N(:))==1; N=[N,0;N,360]; end 
so: if length(T(:))==1; T-[T,0;T,360]; end 


5». ^ Expand the boundary stresses in a Fourier 
»» ^ series 

54 f=pi/180; nft-512; np-min(np,nft/2-1); 

ss: thta-linspace(0,2*pi*(nft-1)/nft,nft); 


st: ^ Interpolate linearly for values at the 
ss: ^4 Fourier points 

so: Nft-lintrp(f*N(:,2),N(:,1),thta); 

: Tft=lintrp(f*T(:,2),T(:,1),thta); 

. c=fft (Nft (:)+i*Tft(:))/nft; 


. 4 Evaluate auxiliary parameters in the 

; 4 series solutions 

s alp=(ti(1)+ti(2))/4; bet--kapa*c(nft)/(1*kapa); 
». Sig=(-ti(1)+ti(2)-2*i*ti(3))/2; 


s: ^ Generate a and b coefficients using the 

: 4 Fourier coefficients of N+i*T. 

. a=zeros(npti,1); b-zeros(np*t3,1); j=(1:np)’; 

; a(j*1)7c(nft*1-j); a(1)-alp; 

: a(2)=bet+c(nft); a(3)=sigt+c(nft-1) ; 

: j=(3:np+2)?’; b(j+1)=(j-1).»xa(j-1)-conj(c(j-1)); 
: b(1)=conj(sig); b(2)=conj (bet); 

: b(3)=alp+a(1)-conj(c(1)); 
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. 4 Discard any negligibly small high order 

. 4 coefficients. 

. tol2max(absC[NC:) ;TC:) ;tiC:)]))/1e4; 

. ka=max(find(abs(a)>tol)); 

. if isempty(ka), a=0; else, a(ka*i:np*i)-[]; end 
. kb=max(find(abs(b)>tol)); 

. if isempty(kb), b=0; else, b(kb*i:np*3)-[]; end 


: function [Phi,Psi,Phip]=strfun(a,b,z) 


: 4 [Phi,Psi,Phipl-strfun(a,b,z) 


:. 4 This function evaluates the complex 

; 4^ stress functions Phi(z) and Psi(z) 

: ^ as well as the derivative function Phi'(z) 
s ^ using series coefficients determined from 
; ^ function platecrc. The calculation also 

. 4 uses a function polflip defined such that 
.% polflip(a,z)-polyval(flipud(a(:)),z). 


200: ^ a,b - series coefficients defining Phi 
201: % and Psi 

202: Ý Z - matrix of complex values 

203: y, 

24: 4 Phi,Psi - complex stress function values 
205: 4 Phip - derivative Phi’ (z) 

206 y, 


; ^ User m functions called: polflip 


. Zi-1./z; np-length(a); a-a(:); 
: Phi-polflip(a,zi); Psi-polflip(b,zi); 
: Phip=-polflip((1:np-1)’.*a(2:np) ,zi) ./z.°2; 


. function [tx,ty,txy,tp1,tp2]= 


-h 
4 [tx,ty,txy,tp1,tp2]=cartstrs(z,Phi,Psi,Phip) 


cartstrs(z,Phi,Psi,Phip) 
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E 
(C 
: t 
3: t 


: f 


This function uses values of the complex 
stress functions to evaluate Cartesian stress 
components relative to the x,y axes. 


Zz - matrix of complex values where 
stresses are required 

Phi,Psi  - matrices containing complex stress 
function values 

Phip - values of Phi'(z) 


tx,ty,txy - values of the Cartesian stress 
components for the x,y axes 

tpi,tp2 - values of maximum and minimum 
principal stresses 


User m functions called: none 


-2*real(Phi); B=conj(z).*Phip+Psi; 
-A-B; R-abs(B); 

x-real(C); ty=2*A-tx; txy=-imag(C) ; 
pi-A*R; tp2-A-R; 


unction [tr,tt,trt]-rec2polr(tx,ty,txy,theta) 


[tr,tt,trt]-rec2polr(tx,ty,txy,theta) 


This function transforms Cartesian stress 
components tx,ty,txy to polar coordinate 
stresses tr,tt,trt. 


tx,ty,txy - matrices of Cartesian stress 
components 

theta - a matrix of polar coordinate 
values. This can also be a 
single value if all stress 
components are rotated by the 
same angle. 


tr,tt,trt - matrices of polar coordinate 
stresses 
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266: $ 


27: h User m functions called: none 


27: if length(theta(:))== 

21: — theta-theta*ones(size(tx)); end 

272: a= (tx+ty) /2; 

273: be (Ctx-ty) /2-i*txy) .*exp(2*i*theta); 

274: C=atb; tr-real(c); tt=2*a-tr; trt--imag(c); 


zs function y=polflip(a,x) 


279: h 


0 
282: A 
233: ^ This function evaluates polyval(a,x) with 
234: h the order of the elements reversed. 


2»: h function y-lintrp(xd,yd,x) 
293: 4 See Appendix B 


12.14.2  Stressed Plate with an Elliptic Hole 


This chapter is concluded with an example using conformal mapping in elasticity 
theory. We discussed earlier the useful property that harmonic functions remain 
harmonic under a conformal transformation. However, linear elasticity leads to the 
biharmonic Airy stress function which satisfies 


2 DE 
Lat a] =" 
Unfortunately, a conformal transformation x + iy = w(€ + in) does not imply 
2 2| 
zz to] U=0 
ae n a 


except when the mapping function has the trivial linear form z = c1¢ + co. Conse- 
quently, the analogy employed in the ideal flow problem is not applicable in linear 
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elasticity. This does not preclude use of conformal mapping in elasticity, but we 
encounter equations of very different structure in the mapped variables. We will 
examine that problem enough to illustrate the kind of differences involved. Let a 
mapping function z = w(C) define curvilinear coordinate lines in the z-plane. A po- 
lar coordinate grid corresponding to arg(¢) = constant and |¢| = constant maps into 
curves we term p lines and o lines, respectively. Plotting of such lines was demon- 
strated previously with function gridview (mapping the exterior of a circle onto the 
exterior of an ellipse). It can be shown that curvilinear coordinate stresses T pp, Taas 
Tpa are related to cartesian stresses according to 


Top + Taa = Tas tTyy 3 — Top + Taa + 2iTpa = h(— yg + Tyy + 2d Tuy) 
where 
CK 
Gu" (C) 


Muskhelishvili [72] has developed a general solution for a plate with an elliptic 
hole allowing general boundary tractions. Here we use one solution from his text 
which employs the mapping function 


z=) =R (6+) 


and the stress functions 


When Ç is selected as the primary reference variable, we have to perform chain rule 
differentiation and write 


_#@ avo 
wee. Wesce 
_ OHO -OPO 


/ 
TEES OS 
in order to compute stresses in terms of the ¢-variable. Readers unaccustomed to 
using conformal mapping in this context should remember that there is no stress 
state in the C-plane comparable to the analogous velocity components which can 
be envisioned in a potential flow problem. We are simply using ¢ as a convenient 
reference variable to analyze physical stress and displacement quantities existing 
only in the z-plane. 

Suppose the infinite plate has an elliptic hole defined by 
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and the hole is free of applied tractions. The stress state at infinity consists of a 
tension p inclined at angle A with the x-axis. The stress functions relating to that 
problem are found to be ([72], page 338) 


E t 
oC) Ctr 
wood eheu , dai 
ge a b= , c= b(2a— m) 
pra _ pra | pr(m * £) 
um Ea LL ak 


Clearly these functions have no obvious relation to the simpler results shown earlier 
for a plate with a circular hole. The function eliphole computes curvilinear coordi- 
nate stresses in the z-plane expressed in terms of the ¢-variable. When A = 7/2, the 
plate tension acts along the y-axis and the maximum circumferential stress occurs at 
Z = r4 corresponding to Ç = 1. A surface plot produced by eliphole for the default 
data case using rz, = 2 and ry = 1 is shown in Figure 12.13. It is also interesting to 
graph 72% / Tyy as a function of rg /ry. The program elpmaxst produces the plot in 
Figure 12.14 showing that the circumferential stress concentration increases linearly 


according to 
Tat 142 (=) 
p Ty 


which can also be verified directly from the stress functions. 
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Circumferential Stress Around an Elliptical Hole 


circumferential stress 


yews x axis 


Figure 12.13: Circumferential Stress around an Elliptical Hole 
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Figure 12.14: Stress Concentration around an Elliptical Hole 
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12.14.3 Program Output and Code 


Program elpmaxst 


; function elpmaxst 


^ Example: elpmaxst 


^ MATLAB example to plot the stress 
^ concentration around an elliptic hole 
^ as a function of the semi-diameter ratio. 


^ User m functions required: eliphole 


; rx-2; ry-1; p-1; ang-90; ifplot=1; 
. zeta=linspace(1,2,11)’* 


exp(i*linspace(0,2*pi,121)); 


. eliphole(rx,ry,p,ang,zeta,1); 


. r=linspace(1.001,10,19); tamax-zeros(size(r)); 


; for j=1:19 
[tr,tamax(j)]-eliphole(r(j),1,1,90,1); 

: end 

: plot(r,tamax,’-’,r,tamax,’o’); 


; title([’Stress Concentration Around an ’, 


’Elliptical Hole’]); 


2: Xlabel([?ratio ( max diameter ) / ^, 


^( min diameter )’]); 


s ylabel([’( max circumferential stress ) / ’,... 


'( plate tension at infinity )’]); 


2: grid on; figure(gcf) ; 
2: Aprint -deps elpmaxst 


. function [tr,ta,tra,z]-eliphole... 


(rx,ry,p,ang,zeta,ifplot) 


s 4 [tr,ta,tra,z]-eliphole(rx,ry,p,ang,... 
36: h zeta,ifplot) 


a» ^ This function determines curvilinear 
. ^ coordinate stresses around an elliptic hole 
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65: 


O0 N Or C e œ N e 


:%⁄ in a plate 
fy rx,ry 5 
eA Pp = 
. 4 ang = 


A ifplot - 


.% tra - 


uniformly stressed at infinity. 


ellipse semidiameters on the x and 
y axes 

values of uniaxial tension at 
infinity 

angle of inclination in degrees 
of the tensile stress at infinity 
curvilinear coordinate values for 
which stresses are evaluated 
optional parameter that is given 
a value if a surface plot of the 
circumferential stress is desired 


tensile stress normal to an 
elliptical coordinate line 
tensile stress in a direction 
tangential to the elliptical 
coordinate line 

shear stress complementary to the 
normal stresses 

points in the z plane where 
stresses are computed 


%, User m functions called: none 


: if nargin«6, 
; if nargin-- 
rx-2; ry-1; 


ifplot-0; end 


p=1; ang-90; ifplot-1; 


zeta-linspace(1,2,11)?* ... 
exp(i*linspace(0,2*pi,121)); 


;: end 


. r=(rxtry)/2; 


. ^ The complex stress functions and mapping 

. ^ function have the form 

. 4 — phi(zeta)-b*zeta*tc/zeta 

|. 4 — psi(zeta)-d*zeta*te/zeta*f*zeta/(zeta^2-m) 
4 z=w(zeta)=r(zetatm/zeta) 

. hf Phi(zeta)-phi' (zeta) /w? (zeta) 

. 4 | Psi(zeta)-psi' (zeta)/w’ (zeta) 

. 4. d(Phi)/dz-(w? (zeta) *phi?? (zeta)-... 


w? (zeta)*phi' (zeta)) /w' (zeta) ^3 


m-7 (rx-ry)/(rx*ry); 
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; Z=r*(zetatm./zeta); zeta2-zeta.^2; 

. zeta3-zeta.^3; wp-r*(1-m./zeta2); 

: Wpp72*r*m./zeta3; a-exp(2*i*pi/180*ang); 

. b=p*r/4; c=b*(2*a-m); d--p*r/2*conj(a); 

. e=-p*r/2*a/m; f-p*r/2*(m*1/m)*(a-m); 

; phip=b-c./zeta2; phipp=2*c./zeta3; 

. h=wp.*zeta; h=h./conj(h) ; 

. Phi=phip./wp; Phipz-(wp.*phipp-wpp.*phip)./wp.^3; 
. Psi=(d-e./zeta2-f*(zeta2+m) ./(zeta2-m) .~2) ./wp; 
s A=2*real(Phi); B=(conj(z).*Phipz+Psi) .*h; 

. C=A-B; tr-real(C); ta=2*A-tr; tra=imag(B) ; 

; if ifplot>0 


^colormap(?gray?); brighten(.95); 

surf(real(z),imag(z),ta); 

xlabel(’x axis’); ylabel(’y axis’); 

zlabel(’circumferential stress’); 

title([’Circumferential Stress Around ’, 
^an Elliptical Hole’]); 

grid on; figure(gcf); input(’’,’s’); 

^Aprint -deps eliphole 


; end 
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Chapter 13 


Nonlinear Optimization Applications 


13.1 Basic Concepts 


Optimization problems occur for a diverse range of topics. Perhaps the simplest 
type of optimization problem involves a scalar function of several variables. For ex- 
ample, the cost of a product having several ingredients may need to be minimized. 
This problem can be represented by a function F(x) which depends on the vec- 
tor x = [ri;z2;...; £n] in n-dimensional space. Function F is called the objec- 
tive function and cases where the independent variables x, can vary arbitrarily are 
considered unconstrained. Most problems have constraints requiring x, to remain 
within given bounds or satisfy other functional equations. Different analysis proce- 
dures exist for solving problems depending on whether they are linear or nonlinear, 
constrained or unconstrained. General solutions are available to handle linear objec- 
tive functions with linear equality and inequality constraints. The discipline devoted 
to such problems is known as linear programming [41] and applications involving 
thousands of independent variables can be analyzed.! Although this class of linear 
problems is important, it does not offer the versatility of methods used to address 
nonlinear problems (which are more compute intensive for problems of similar di- 
mensionality).? The material in this chapter addresses nonlinear problems with a few 
independent variables which are either constrained or restricted to lie within bounds 
of the form 

a, € T, € b. 


This type of constraint can be satisfied by taking 
Dy = dy + (b, — a.) sin? (z,) 


and letting z, vary arbitrarily. The MATLAB intrinsic functions fminbnd and fmin- 
search are employed for solving this class of problems. The following five examples 
are presented to illustrate the nature of nonlinear optimization methods: 


1. Computing the inclination angle necessary to cause a projectile to strike a 
stationary distant object; 


!High dimensionality linear problems should always be solved using the appropriate specialized software. 


?The MathWorks markets an “Optimization Toolbox" intended to satisfy a number of specialized opti- 
mization needs. 


© 2003 by CRC Press LLC 


2. Finding parameters of a nonlinear equation to closely fit a set of data values; 


3. Determining components of end force on a statically loaded cable necessary 
to make the endpoint assume a desired position; 


4. Computing the shape of a curve between two points such that a smooth particle 
slides from one end to the other in the minimum time; 


5. Determining the closest points on two surfaces. 
Before addressing specific problems, some of the general concepts of optimization 
will be discussed. 
The minimum of an unconstrained differentiable function 
F(zi,22,..., En) 
will occur at a point where the function has a zero gradient. Thus the condition 


OF 
Ox, 


=0,1l<i<n 


leads to n nonlinear simultaneous equations. Such systems often have multiple so- 
lutions, and a zero gradient indicates either a maximum, or a minimum, or a saddle 
point. No reliable general methods currently exist to obtain all solutions to a general 
system of nonlinear equations. However, practical situations do occur where one 
unique point providing a relative minimum is expected. In such cases F(x) is called 
unimodal and we seek xo which makes 


F(xo) < F(xo + A) for |A| > 0. 


Most unconstrained nonlinear programming software starts from an initial point and 
searches iteratively for a point where the gradient vanishes. Multimodal, or non- 
unimodal, functions can sometimes be solved by initiating searches from multiple 
starting points and using the best result obtained among all the searches. Since sit- 
uations such as false convergence are fairly common with nonlinear optimization 
methods, results obtained warrant greater scrutiny than might be necessary for linear 
problems. 

The intrinsic MATLAB functions fminbnd and fminsearch are adequate to ad- 
dress many optimization problems. Readers should study the documentation avail- 
able for fminbnd, which performs a one-dimensional search within specified limits, 
and fminsearch, which performs an unconstrained multi-dimensional search starting 
from a user selected point. Both functions require objective functions of acceptable 
syntactical form. Various options controlling convergence tolerances and function 
evaluation counts should be studied to insure that the parameter choices are appro- 
priately defined. 
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Projectile Trajectory for Velocity Squared Drag 
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Figure 13.1: Projectile Trajectory for v? Drag Condition 


E: SeSe 


13.2 Initial Angle for a Projectile 


In Chapter 8, equations of motion for motion of a projectile with atmospheric drag 
were formulated and a function traject producing a solution y(x) passing through 
(x,y) = (0,0) with arbitrary inclination was developed. The solution is generated 
forÜ < x < ry assuming the initial velocity is large enough for the projectile to 
reach x ;. Therefore, program execution terminates if dx/dt goes to zero. In order to 
hit a target at position (£ y, yy), the starting angle of the trajectory must be selected 
iteratively because the equations of motion cannot be solved exactly (except for the 
undamped case). With the aid of an optimization method we calculate |y(x f) — y,)| 
and minimize this quantity (described in function missdis which has the firing angle 
as its argument). Function fminbnd seeks the angle to minimize the “miss” distance. 
Program runtraj illustrates the solution to the problem described and Figure 13.1 
shows the trajectory required for the projectile to strike the object. 

Depending on the starting conditions, zero, one, or two solutions exist to cause 
the “miss” distance to approach zero. Function fminbnd terminates at either a local 
minimum or at one of the search limits. The reader will need to examine how the 
initial data correlate to the final answers. For example, if the projectile misses the 
target by a significant amount, the initial projectile velocity was not large enough to 
reach the target. 
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Program Output and Code 


Trajectory Analysis Program 


DE Ed 


; function runtraj 


^ Example: runtraj 


^ This program integrates the differential 
^ equations governing two-dimensional motion 
^ of a projectile subjected to gravity loading 


. ^ and atmospheric drag proportional to the 

. ^ velocity squared. The initial inclination 

. ^ angle needed to hit a distant target is 

. 4^ computed repeatedly and function fmin is 

. ^ employed to minimize the square of the 

. ^ distance by which the target is missed. The 
. ^ optimal value of the miss distance is zero 
s 4 and the optimum angle will typically be found 
. ^ unless the initial velocity is too small 

. ^ and the horizontal velocity becomes zero 

. ^ before the target is passed. The initial 

. ^ velocity of the projectile must be large 

. ^ enough to make the problem well posed. 

: ^ Otherwise, the program will terminate with 
2: À an error message. 


. ^ User m functions called: missdis, traject, 
s projcteq 


27: Clear all; 
2: global Vinit Gravty Cdrag Xfinl Yfinl 


: Vinit-600; gravty=32.2; cdrag-0.002; 
: Xfinl-1000; yfinl=100; 


: disp? ?)5 

. disp(’ SEARCH FOR INITIAL INCLINATION ANGLE ?); 
s dispC TO MAKE A PROJECTILE STRIKE A DISTANT’); 
3: disp(’ OBJECT’); disp? ?’); 


3: disp([’ Initial velocity = ’,num2str(vinit)]); 
ss disp([’ Gravity constant = ?,num2str(gravty)]); 
3: disp([’ Drag coefficient = ’ ,num2str(cdrag)]); 


. disp([’ Coordinates of target = (’, 
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num2str(xfinl),’,’,... 
num2str(yfinl),’)’]); dispC ’); 


: ^ Replicate input data as global variables 
s Vinit=vinit; Gravty-gravty; Cdrag=cdrag; 
; Xfinl=xfinl; Yfinl=yfinl; 


. ^ Perform the minimization search 

; fstart-180/pi*atan(yfinl/xfinl); fend-75; 
s: disp(’Please wait for completion of the’) 
si; disp(’ minimization search’); 

s: bestang=fminbnd(@missdis,fstart,fend) ; 


s: ^ Display final results 
ss Ly,x,t]=traject 


(bestang,vinit,gravty,cdrag,xfinl); 


s: dmiss-abs(yfinl-y(length(y))); disp ?) 
s: Gisp([’Final miss distance is ’, ... 


num2str(dmiss),’ when the’]); 


. disp([’ initial inclination angle is ’, 


num2str(bestang),... 
^ degrees’]); 


. function [dsq,x,y]l-missdis(angle) 

: 4 [dsq,x,y]=missdis (angle) 

. ^ This function is used by fminbnd. It returns 
. ^ an error measure indicating how much the 

. ^ target is missed for a particular initial 


. ^ inclination angle of the projectile. 


. ^ angle - the initial inclination angle of 


- the projectile in degrees 

hh 
. ^ dsq  - the square of the difference between 
dt Yfinal and the final value of y found 
Sie using function traject. 
4 x,y  - points on the trajectory. 


. ^ Several global parameters (Vinit, Gravty, 
: ^ Cdrag, Xfinl) are passed to missdis by the 
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0 


. 4^ driver program runtraj. 
0 


. ^ User m functions called: traject 
0 


: global Vinit Gravty Cdrag Xfinl Yfinl 
. [y, x, t] *traject 


(angle,Vinit,Gravty,Cdrag,Xfinl,1); 


. dsq7 Cy Gength (y)) -Yfin1)^2; 


. function [y,x,t]-traject 


(angle,vinit,gravty,cdrag,xfinl,noplot) 


: 4 [y,x,tl-traject 


% (angle,vinit,gravty,cdrag,xfinl,noplot) 


. 4 angle - 


^ vinit - 


^ gravty - 
% cdrag - 


:% xfinl - 


: 4 noplot - 


;. 4 This function integrates the dynamical 

; ^ equations for a projectile subjected to 

: 4 gravity loading and atmospheric drag 

: 4 proportional to the square of the velocity. 


initial inclination of the 
projectile in degrees 

initial velocity of the projectile 
(muzzle velocity) 

the gravitational constant 

drag coefficient specifying the 
drag force per unit mass which 
equals cdrag*velocity^2. 

the projectile is fired toward the 
right from x=0. xfinl is the 
largest x value for which the 
solution is computed. The initial 
velocity must be large enough that 
atmospheric damping does not reduce 
the horizontal velocity to zero 
before xfinl is reached. Otherwise 
an error termination will occur. 
plotting of the trajectory is 
omitted when this parameter is 
given an input value 
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O4 y,X,t - the y, x and time vectors produced 


^ by integrating the equations of 
a: h motion 
h 
s 4 Global variables: 
h 
:% grav, - two constants replicating gravty and 
: 4 dragc cdrag, for use in function projcteq 
3: 4 vtol  - equal to vinit/1e6, used in projcteq 
oh to check whether the horizontal 
A velocity has been reduced to zero 


» 4 User m functions called: projcteq 


; global grav dragc vtol 


. 4 Default data case generated when input is null 
: if nargin ==0 


angle-45; vinit-600; gravty-32.2; 
cdrag-0.002; xfinl-1000; 


5» end; 


s: ^ Assign global variables and evaluate 

55 ^ initial velocity 

s: grav-gravty; dragc-cdrag; ang-pi/180*angle; 
s: Vtol-vinit/1e6; 

s: ZO-[vinit*cos(ang); vinit*sin(ang); 0; 0]; 


. 4 Integrate the equations of motion defined 
: 4 in function projcteq 

: deoptn-odeset (’RelTol’ , 1e-6) ; 

: [x,z]=ode45(’ projcteq’, l0,xfinl] ,z0,deoptn) ; 


5 y=z(:,3); t=z(:,4); n-length(x); 
6: xf-x(n); yf=y(n); 


s: 4 Plot the trajectory curve 
: if nargin < 6 


plot(x,y,’k-?,xf,yf,’ko’); 

xlabel(’x axis’); ylabel(’y axis’); 

title([’Projectile Trajectory for ’, 
’ Velocity Squared Drag’]); 

axis(’equal’); grid on; figure(gcf); 

^Aprint -deps trajplot 
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8 
OV 


hh 
2^ 
z^ 


Dd 


: function zp-projcteq(x,z) 


/ 
: Lo 
0 


Zp=projcteq(x,z) 


This function defines the equation of motion 
for a projectile loaded by gravity and 
atmospheric drag proportional to the square 
of the velocity. 


X - the horizontal spatial variable 
Z - a vector containing [vx; vy; y; tl; 
zp - the derivative dz/dx which equals 


[ex^ (x); vy?’ (x); ye) st (z)]; 


Global variables: 


grav - the gravity constant 

dragc - the drag coefficient divided by 
gravity 

vtol - a global variable used to check 


whether vx is zero 


User m functions called: none 


lobal grav dragc vtol 
x-z(1); vy=z(2); v-sqrt(vx^2*vy^2); 


Check to see whether drag reduced the 
horizontal velocity to zero before the 

xfinl was reached. 

f abs(vx) < vtol 

disp? ?); 

disp (Ce ARREARS ECA IAI HK?) ; 
disp(’ERROR in function projcteq. The ’); 
disp( initial velocity of the projectile’); 
disp( was not large enough for xfinal to’); 
disp(’ be reached.’); 

disp(’EXECUTION IS TERMINATED.’); 
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221 disp CRRA ROARS ASSIS kk ? ) 5 
22 disp? ?),error(C ’); 

223: end 

24: Zp=[-dragc*v; -(grav*dragc*v*vy)/vx; 

5: vy/vx; 1/vx]; 


|: EEEEEEEEESLIALILLc6wL!ULUSSEERREREEEEEEE 


13.3 Fitting Nonlinear Equations to Data 


Often an equation of known form is needed to approximately fit some given data 
values. An equation y(t) to fit m data values (t,, y,) might be sought from an equa- 
tion expressible as 


y = f(a,a2,..., 05, t) 


where n parameters a1, a2, ...,a@n are needed to minimize the least squares error 


TL 
€(01,a2,...,04) = 5 [y, — f(a1,a2,.. iR ; 


j=l 


The smallest possible error would be zero when the equation passes exactly through 
all the data values. Function e can be minimized with an optimizer such as fmin- 
search, or conditions seeking a zero gradient of e which require 


a : 2 
0d = 25 [f (a1, a2,. s ; On, ty) - yj] (2) 


J=1 


can be written. Note that the problem of minimizing a function and the problem of 
solving a set of nonlinear simultaneous equations are closely related. Solving large 
systems of nonlinear equations is difficult. Therefore, data fitting by use of function 
minimization procedures is typically more effective. 

The formulation assuming y depends on a single independent variable could just 
as easily have involved several independent variables £1, £2, ..., £y, which would 
yield an equation of the form 


y = f(a1,02,..., 4,21, 22, .. ., XN). 


For instance, we might choose the simplest useful equation depending linearly on 
the independent variables 


N 
yg 5 Tak 
k=0 


where xo = 1. The least squares error can be expressed as 


n N 2 
€(à9,01,..., an) = Xo l — YX 


j=l 
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where X ,; means the value of the k'^ independent variable at the j'^ data point. The 
condition that e have a zero gradient gives 


N n n 


Se DS Ge ee YG 1SN. 


k=0 Lj=1 j=l 


This linear system can be solved using traditional methods. Since the multiple in- 
dices in the equation are slightly cryptic, expressing the relationship in matrix nota- 
tion is helpful. We get 


YxXA 
where 
yı ao 
y2 a1 
Y= . , X = (1, X1,Xo,..., Xn] , A- 
Yn an 
with X, being the column matrix [z,1, z;2, ... , £an] and the first column of X con- 


tains all ones. The requirement to minimize e is simply 


(XTX)A- XTY 


and MATLAB produces the desired solution using 


Although taking y as a linear function of parameters ao, a1,...,ayw produces solv- 
able linear equations, the general situation yields nonlinear equations, and a min- 
imization search procedure has greater appeal. We conclude this section with an 
example employing a minimization search. 

Consider an experiment where data values (t,, y,) are expected to conform to the 
transient response of a linear harmonic oscillator governed by the differential equa- 
tion 

moy + coy + koy = 0. 
This equation has a solution representable as 


—|aalt 


y = ae cos(|aa|t + a4) 


where |a2| makes the response decay exponentially and |a 3| assures that the damped 
natural frequency is positive. Minimizing the error function 


TL 


2 
€(a1, a2, a3, a4) = 5S ly — aye” He2l%s cos(|a3|t, + a4) 
3—1 


requires a four-dimensional search. 
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Data Approximating y = 1.5*exp(-.1*t)*cos(2.5*t«pi/4) 


1.5 T T T T T T 
1 4 
0.5H 
a 
$ Or 
> 
-0.5- 
-1F- 
Approx. equation is y = a*exp(b*t)*cos(c*t+d) 
a= 1.4961 b = -0.098761 c = 2.4993 d = 0.62104 
-1.5 ` 1 i 1 L L 1 $ ii I 
0 2 4 6 8 10 12 14 16 18 20 


time 


Figure 13.2: Data Approximating y = 1.5exp(—0.1t) cos(2.5t + 7/4) 


The program vibfit tests data deviating slightly from an equation employing spe- 
cific values of a1, a2, a3, a4. Then function fminsearch is used to verify whether the 
coefficients can be recovered from the data points. Figure 13.2 shows the data values 
and the equation resulting from the nonlinear least square fit. The results produced 
are quite acceptable. 


Program Output and Code 
Program vibfit 


; function vibfit 


1 

2: VA 

5 4 Example: vibfit 

didus hey T ee Re 

5: % 

« 4 This program illustrates use of the Nelder 

7 h and Mead multi-dimensional function 

s 4 minimization method to determine an equation 


e 
e 
ex 


. 4 for y(t) which depends nonlinearly on several 
1: 4 parameters chosen to closely fit known data 
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. ^ values. The program minimizes the sum of the 
. ^ Squares of error deviations between the data 
. ^ values and results produced by the chosen 

. ^ equation. The example pertains to the time 

s 4 response curve characterizing free vibrations 
. ^ of a damped linear harmonic oscillator. 


. ^ User m functions called: vibfun 
20: ^ Make the data vectors global to allow 


; 4 access from function vibfun 
2; global timdat ydat 


24 echo off; 

a: disp? ?); 

2: disp(’ CHOOSING PARAMETERS’ ) ; 

2: disp? IN THE THE NONLINEAR EQUATION’) ; 
2: disp? Y = A*EXP(B*T) *COS (CKT4D) ?) ; 


2: disp(’?TO OBTAIN THE BEST FIT TO GIVEN DATA’); 
. fprintf(’\nPress [Enter] to list function Wn?); 
. fprintf(?vibfun which is to be minimized\n’) ; 
; pause; 


3: ^ Generate a set of data to be fitted by a 
s 4 chosen equation. 

. a=1.5; b--.1; c-2.5; d-pi/5; 

a5 timdat=0: .2:20; 

ss ydat=a*exp (b*timdat) .*cos(c*timdat+d) ; 


; 4 Add some random noise to the data 
; ydat=ydatt+.1*(-.5+rand(size(ydat))); 


. ^ Function vibfun defines the quantity to be 
. ^ minimized by a search using function fmins. 
s disp? °); 

. disp( The function to be minimized is:’); 

. type vibfun.m; disp(’ ?); 

. disp( The input data will be plotted next.’); 
. disp( Press [Enter] to continue’); pause; 

so: plot (timdat,ydat,’k.’); 

s: title(’Input Data’); xlabel(’time’); 

s: ylabel(’y axis’); grid off; figure(gcf) ; 

s3: Input s.s 


; 4 Initiate the four-dimensional search 
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s X=fminsearch(@vibfun,[1 1 1 11); 


ss: ^ Check how well the computed parameters 

. 4 fit the data. 

; aa=x(1); bb=-abs(x(2)); cc=abs(x(3)); dd-x(4); 
; as=num2str(aa); bs=num2str (bb); 

: ce-num2str(cc); ds=num2str (dd); 

: ttrp=0: .05:20; 

. ytrp=aaxexp(bb*ttrp) .*cos(cc*ttrptdd) ; 

s disp? 223 

. disp( Press [Enter] to see how well’); 

. disp(’the equation fits the data’); pause; 
: plot(ttrp,ytrp,’k-’ ,timdat,ydat,’k.’); 

. Stri-['Approx. equation is y = ’, 


^a*exp(b*t)*cos(c*t*d)?] ; 


. str2=[’a = ’,as,’ b= ’,bs,’ c=’, 


cs,? d= ?,ds]; 


: text(6,-1.1,strli); text(6,-1.25,str2); 
. Xlabel(’time’); ylabel(’y axis’); 
s title([’Data Approximating ’, 


"y = 1.5*exp(-. 1*t) *cos (2. 5b*tt*pi/4)?]); 


. grid off; figure(gcf); 
: print -deps apprxdat 


: function z-vibfun(x) 

: 4 z-vibfun(x) 

. ^ This function evalautes the least square 

. ^ error for a set of vibration data. The data 
. 4 vectors timdat and ydat are passed as global 
. ^ variables. The function to be fitted is: 

oA — yca*exp(b*t)*cos(c*t*d) 


. 4 X - a vector defining a,b,c and d 


. 4 Z - the square of the norm for the vector 


Lh of error deviations between the data and 
h results the equation gives for current 
m parameter values 
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o: 4 User m functions called: none 

02: yA EL LLL RS SS Sa a LL 
03: 

o: global timdat ydat 

o; a=x(1); b=-abs(x(2)); c=abs(x(3)); d=x(4); 

os Z=axexp (b*timdat) .*cos(c*timdat+d) ; 

o» Z=norm(z-ydat) “2; 


13.4 Nonlinear Deflections of a Cable 


We will now present an optimization procedure to determine the static equilibrium 
position of a perfectly flexible inextensible cable having given end positions and a 
known distributed load per unit length. If R(s) is the position of any point on the 
cable as a function of arc length 0 € s < L, then the internal tension at position s is 


L 
T(s) = Fe «f q(s) ds 


with q(s) being the applied force per unit length and F e being the support force at 
s — L. The end force to produce a desired end deflection has to be determined in 
the analysis. However, the end deflection resulting from any particular choice of end 
force can be computed by observing that the tangent to the deflection curve will point 
along the direction of the cable tension. This means 


dR — Ts) 
ds |T(s)| 


and 


ES ° T(s)ds = I (Fe + J ads) ds 
o IT(s)| 0 Fe + [7 ads| 


where R(0) = 0 is taken as the position at the starting end. The deflection at s = L 
will have some specified position Re so that requiring R(L) = Re gives a vector 
equation depending parametrically on F'e. Thus, we need to solve three nonlinear 
simultaneous equations in the Cartesian components of force F e. A reasonable an- 
alytical approach is to employ an optimization search to minimize |R(L) — Re| in 
terms of the components of Fe. 

The procedure described for a cable with continuous loading extends easily to 
a cable having several rigid links connected at frictionless joints where arbitrary 
concentrated forces are applied. The function cabldefl evaluates the position of each 
joint when the joint forces and outer end force are given. With the end force on the 
last link treated as a parameter, function endfl computes an error measure |F'(L) — 
Ry |? to be minimized using function fminsearch. The optimization search seeks the 
components of F e needed to reduce the error measure to zero. Specifying a sensible 
problem obviously requires that | R e| must not exceed the total length of all members 
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Deflection Shape for a Loaded Cable 


yaxis 


Figure 13.3: Deflected Shape for a Loaded Cable 


in the chain. Initiating the search with a randomly generated starting force leads to 
a final force produced by fminsearch, which is then employed in another call to 
cabldefl to determine and plot the final deflection position as shown in Figure 13.3. 
Using a random initial guess for the end force was done to show that choosing bad 
starting data, insufficiently stringent convergence tolerances, or too few allowable 
function iterations can sometimes produce erroneous results. This emphasizes the 
need to always examine the results from nonlinear search procedures to assure that 
satisfactory answers are obtained. 


Program Output and Code 


Program cablsolv 


. function [r,t,pends]=cablsolv(Len,P,Rend) 
^ [r,t,pends]-cablsolv(Len,P,Rend) 
^ This function computes the equilibrium 


^ position for a cable composed of rigid 
^ weightless links with loads applied at the 


Qo. ambo se oe ce ecd 
= 


o h frictionless joints. The ends of the cable 
1: 4 are assumed to have a known position. 
u: h 
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25: 


Len 


Rend 


pends 


a vector containing the lengths 
Len(1), ..., Len(n) 

matrix of force components applied 

at the interior joints. P(:,i) 
contains the Cartesian components of 
the force at joint i. 

the coordinate vector giving the 
position of the outer end of the last 
link, assuming the outer end of the 
first link is at [0,0,0]. 


a matrix with rows giving the 
computed equilibrium positions of all 
ends 

a vector of tension values in the 
links 

a matrix having two rows which 
contain the force components acting 
at both ends of the chain to maintain 
equilibrium 


User m functions called: endfl, cabldefl 


; if nargin « 3 


^ Example for a ten link cable with vertical 
% and lateral loads 

Len=1.5*ones(10,1); Rend=[10,0,0]; 
P-ones(9,1)*[0,-2,-1] ; 


; end 


: global len p rend 
. len=Len; rend-Rend; p=P; tol-sum(Len)/1e8; 


Start the search with a random force applied 
at the far end 


Perform several searches to minimize the 
length of the vector from the outer end of 
the last link to the desired position Rend 
where the link is to be connected to a 
support. The final end force should reduce 
the deflection error to zero if the search 
is successful. 


: opts=optimset (’tolx’,tol,’tolfun’,tol,... 
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^maxfunevals? ,2000) ; 


ss; endval-realmax; 


; 4 Iterate several times to avoid false 
. 4 convergence 
: for k=1:5 


p0-10*max(abs(p(:)))*rand(size(p,2),1); 
[pendk,endvalk,exitf]-... 
fminsearch(@endfl,p0,opts) ; 
if endvalk < endval 
pend=pendk(:); endval=endvalk; 
end 


; end 


: ^ Use the computed end force to obtain the 
. ^ final deflection. Also return the 

. 4 support forces. 

. [r,t,pstart]-cabldefl(len, [p;pend’]); 

5s x=r(:,1); y=r(:,2); z=r(:,3); 

. pends- [pstart (:)? ;pend(:)?]; 


. ^ Plot the deflection curve of the cable 

: plot3(x,y,z,?k-?,x,y,z,'ko?); xlabel(?x axis’); 
. ylabel(’yaxis’); zlabel(’z axis’); 

; title(’Deflection Shape for a Loaded Cable’); 

. axis(’equal’); grid on; figure(gcf); 

: print -deps defcable 


. function enderr-endfl(pend) 


. ^ enderr-endfl(pend) 


. ^ This function computes how much the 

. 4 position of the outer end of the last link 
. ^ deviates from the desired position when an 
s 4 arbitrary force pend acts at the cable end. 


. 4 pend  - vector of force components applied 
Sh at the outer end of the last link 


. 4 enderr - the deflection error defined by the 
oe square of the norm of the vector 
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bale from the computed end position and 


a: A the desired end position. This error 
:% should be zero for the final 
(4 equilibrium position 


;: 4 User m functions called: cabldefl 


. 4 Pass the lengths, the interior forces and the 
: 4 desired position of the outer end of the last 
. 4 link as global variables. 

: global len p rend 


. 4 use function cabldefl to compute the 
. 4 desired error 

. r=cabldefl(len, [p;pend(:)’]); 

; rlast-r(size(r,1),:); 

. d=rlast(:)-rend(:); enderr-d'xd; 


20: 


: function [r,t,pbegin]-cabldefl(len,p) 


4 [r,t,pbegin]-cabldefl(len,p) 


. 4 This function computes the static equilibrium 
: 4 position for a cable of rigid weightless 

. 4 links having concentrated loads applied at 

. 4 the joints and the outside of the last link. 

. 4 The outside of the first link is positioned 
33: ^ at the origin. 


: 4 len - a vector of link lengths 
I len(1), ..., len(n) 
ar: h p - a matrix with rows giving the 
38: h force components acting at the 
39: h interior joints and at the outer 
m end of the last link 
Ar - matrix having rows which give the 
Sh final positions of each node 
At - vector of member tensions 
: 4 pbegin - force acting at the outer end of 
ho the first link to achieve 
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a7: h equilibrium 
48: VA 


4: 4 User m functions called: none 
0 


pen 


2, n-length(len); len=len(:); nd=size(p,2); 


sı T=flipud(cumsum(flipud(p))); 
s: t=sqrt(sum((T.*2)’)’); 


i 


& ^ Obtain the deflections of the outer ends 

. 4 and the interior joints 

6: r-cumsum(T./t(:,ones(1,nd)).*len(:,ones(1,nd))); 
6: r=[zeros(1,nd);r]; pbegin--t(1)*r(2,:)/len(1); 


5 
5 
5 
5 
5: ^ Compute the forces in the links 
5 
5 
5 
5 
5 


oO 


13.5 Quickest Time Descent Curve (the Brachistochrone) 


The subject of variational calculus addresses methods to find a function producing 
the minimum value for an integral depending parametrically on the function. Typi- 
cally, we have a relationship of the form 


ro) = | Glave) de 


where values of y at x = xı and x = £2 are known, and y(x) for zi < x < x9 
is sought to minimize J. A classical example in this subject is determining a curve 
starting at (0,0) and ending at (a,b) so that a smooth particle will slide from one 
end to the other in the shortest possible time. Let X and Y be measured positive to 
the right and downward. Then the descent time for frictionless movement along the 
curve will be 


La f fva "S 
t^ x] YO dX , Y(0) 20, Y(a) =b. 


This problem is solved in various advanced calculus books.? The curve is a cycloid 
expressed in parametric form as 


X = k[0 — sin(0)] , Y = k[1 — cos(0)] 


5Weinstock [105] provides an excellent discussion of the brachistochrone problem using calculus of vari- 
ation methods. 
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where 0 < 6 < 0. Values of 0, and k are found to make z(0 s) = a and Y (05) = b. 


The exact descent time is 
k 
Lies = 0, = 
g 


which is significantly smaller than the descent time for a straight line, which is 


2(a? +b?) 
Line = — ae. 


gb 


Two functions, brfaltim and bracifun, are used to compute points on the brachis- 
tochrone curve and evaluate the descent time. 

The main purpose of this section is to illustrate how optimization search can be 
used to minimize an integral depending parametrically on a function. The method 
used chooses a set of base points through which an interpolation curve is constructed 
to specify the function. Using numerical integration gives a value for the integral. 
Holding the x values for the interpolation points constant and allowing the y values 
to vary expresses the integral as a function of the y values at a finite number of 
points. Then a multi-dimensional search function such as fminsearch can optimize 
the choice of Y values. Before carrying out this process for the brachistochrone 
problem it is convenient to change variables so that x = X/a and 


Y(X) = br + y(x), 0S m S 1, 


with 
Then the descent integral becomes 


t= 


a P Rx eyoyr 
71, y = 


For any selected set of interpolation points, functions spline and splined can eval- 
uate y(x) and y'(x) needed in the integrand, and function gequad can be used to 
perform Gaussian integration. An optimization search employing fminsearch pro- 
duces the curve heights yielding an approximation to the brachistochrone as shown 
in Figure 13.4. 
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Brachistochrone Curve for a/b = 3 


Descent time (secs) 
-02L Approximate: 1.76 4 
Exact: 1.7774 
N Error tolerance: 0.0001 
-0.4+ 
-0.6r 
2 
= 
-0.8r 
-1F- 
-12r 
—— Approximate Curve 
O Computed Points 
— - Exact Curve 
-1.4 I I 1 i L 1 L V f. 
0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 
xla 
Figure 13.4: Brachistochrone Curve for 7 = 3 
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Program Output and Code 


Program brachist 


; function brachist 
. ^ Example: brachist 


e Ù N n 
z3 
i 
i 
i 
a 
i 
i 
i 
H 
i 
i 
a 
i 
a 
i 
a 
i 
a 


. ^ This program determines the shape of a 

s 4 Smooth curve down which a particle can slide 
« 4 in minimum possible time. The analysis 

7 ^ employs a piecewise cubic spline to define 

s 4 the curve by interpolation using a fixed set 
s 4 of base point positions. The curve shape 
1: 4 becomes a function of the heights chosen at 
u: 4 the base points. These heights are determined 
i ^ by computing the descent time as a function 
13: 4 of the heights and minimizing the descent 
1; ^ time by use of an optimization program. The 
is: 4 Nelder and Mead unconstrained search 
: 4 procedure is used to compute the minimum. 


is: ^ User m functions called: 
19: h chbpts, brfaltim, fltim, gcquad, 
20: % bracifun, splined 


2, global cbp cwf cofs n xc yc a b b over a ... 
23: grav nparts nquad nfcls 


25 fprintf(... 
2: ?\nBRACHISTOCHRONE DETERMINATION BY NONLINEAR’); 


ə: fprintf Mn OPTIMIZATION SEARCH \n’); 
2: fprintf([’\nPlease wait. The ’,... 
2; | "calculation takes a while.\n’]); 


31: 4 Initialize 
32, a-30; b-10; grav=32.2; nparts-1; nquad=50; 
33, tol=le-4; n=6; b over a = b/a; 


as [dummy ,cbp, cwf]=gcquad(’’ ,0,1,nquad,nparts) ; 
3: Xc7chbpts(0,1,n); xc-xc(:); 
a5 yO-5*sin(pi*xc); xc-[0;xc;1]; 


30: 4^ Calculate results from the exact solution 
ao: [texact,xexact,yexact]-brfaltim(a,b,grav,100); 
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. ^ Perform minimization search for 

. ^ approximate solution 

: opts=optimset (’tolx’ ,tol,’tolfun’,tol); 
s [yfmin,fmin,flag, outp] Ei 


fminsearch(Ofltim,yO,opts); 


. ^ Evaluate final position and approximate 
: ^ descent time 

so: Xfmin-xc; Yfmin-Xfmin-*[0;yfmin(:);0]; 

5: 4 tfmin-a/sqrt (2*grav*b)*fltim(yfmin(:)); 
5; tfmin-a/sqrt (2*grav*b) *fmin; 

s nfcls-1*outp.funcCount; 


s 4 Summary of calculations 
s: fprintf(’\nBrachistochrone Summary’) ; 


57: fprintf CO \n----------------------- »); 

ss fprintf(’\nNumber of function calls: oe 
so: fprintf(’%g’ ,nfcls); 

o; fprintf(’\nDescent time: c) 


| Tfprintf('Ag',tfmin); fprintf( Wn?) 


. ^ Plot results comparing the approximate 
. ^ and exact solutions 

s xplot-linspace(0,1,100); 

. yplot-spline(Xfmin,Yfmin,xplot); 

: plot (xplot,-yplot,’-’,Xfmin,-Yfmin,’o 


xexact/a,-yexact/b,’--’); 


. Xlabel(’x/a’); ylabel(’y/b’); % grid 
; title([’Brachistochrone Curve for ^, 


^a/b = ?,num2str(a/b)]); 
; text (.5,-.1, ^Descent time (secs)?) 
. text (.5,-.175,[' Approximate: ",num2str(tfmin)]) 
; text(.5,-.25, [’Exact: num2str(texact)]); 


s text (.5,-.325, 


sprintf(’Error tolerance: ^g! ,tol)); 


; legend (^ Approximate Curve’, 


’ Computed Points’,’Exact Curve’ ,3); 


. figure(gcf) ; 
: print -deps brachist 


. function [tfall,xbrac,ybrac]-brfaltim 


(a,b,grav,npts) 
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(b 


[tfall,xbrac,ybrac]-brfaltim(a,b,grav,npts) 


This function determines the descent time 
and a set of points on the brachistochrone 
curve passing through (0,0) and (a,b). 

The curve is a cycloid expressible in 
parametric form as 


x-k*(th-sin(th)), 
y-k*(1-cos(th)) for O«-th«-thf 


where thf is found by solving the equation 
b/a-(1-cos(thf))/(thf-sin(thf)). 

Once thf is known then k is found from 
k=a/(th-sin(th)). 


The exact value of the descent time is given 
by 


tfall=sqrt (k/g) *thf 


a,b  - final values of (x,y) on the curve 

grav - the gravity constant 

npts - the number of points computed on 
the curve 


tfall - the time required for a smooth 
particle to slide along the curve 
from (0,0) to (a,b) 

xbrac - x points on the curve with x 
increasing to the right 

ybrac - y points on the curve with y 
increasing downward 


User m functions called: none 


rfn=inline(’cos(th)-1+cof*(th-sin(th))’,’th’,’cof’); 
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a4 k= 
5 if nargin-- 


: ba=b/a; [th,fval,flag]=fzero(... 
brfn,[.01,10] ,optimset(’fzero’) ,ba) ; 


a/(th-sin(th)); tfall=sqrt (k/grav) *th; 


thvec=(0:npts-1)’*(th/(npts-1)); 
xbrac=k* (thvec-sin(thvec) ) ; 
ybrac-k*(1-cos(thvec)); 


39: end 


s function x-chbpts(xmin,xmax,n) 
oe | 
"A 
9 
d 
0 
E 
s 4^ User m functions called: none 


x=chbpts (xmin, xmax ,n) 
Determine n points with Chebyshev spacing 
between xmin and xmax. 


5; X=(xmint+xmax) /2+( (xmin-xmax) /2) * 


cos (pi/n*((0:n-1)?*4.5)); 


s function t-fltim(y) 


t-fltim(y) 


This function evaluates the time descent 
integral for a spline curve having heights 
stored in y. 


y - vector defining the curve heights at 
interior points corresponding to base 
positions in xc 


t - the numerically integrated time descent 
integral evaluated by use of base points 
cbp and weight factors cwf passed as 
global variables 


© 2003 by CRC Press LLC 


176: ^ User m functions called: splined 
177: y^ ey eee eee c eee ee ee Eee ewe sev e ee 


179: global xc cofs nparts bp wf nfcls cbp cwf 
180: b. over a 


13 nfcls-nfcls*i; x-cbp; 


isa: 4 Generate coefficients used in spline 
iss: ^ interpolation 

186: yc=[0;y(:);0]; 

15 y=Spline(xc,yc,x); yp=splined(xc,yc,x); 


13; ^ Evaluate the integrand 
190: f£2(1*(b. over a*(1*yp)).^2)./(x*y); f-sqrt(f); 


192: 4 Evaluate the integral 
19: t=cwf(:)?*£(:); 


15 4 function [val,bp,wf]=gcquad(func,xlow,... 
198: h xhigh,nquad,mparts,varargin) 
19» ^ See Appendix B 


23: ^ function val=splined(xd,yd,x,if2) 
204. 4 See Appendix B 


E: SeSe 


13.6 Determining the Closest Points on Two Surfaces 


Determining the closest points on two surfaces arises in applications such as robotic 
collision avoidance and container packing. Many types of surfaces can be parameter- 
ized using two curvilinear coordinates; so, the problem reduces to a four dimensional 
search to minimize the length of a line from a point on one surface to a point on the 
other surface. We call this the proximity problem and will consider typical instances 
involving two circular cylinders arbitrarily positioned in space as illustrated by the 
test examples of Figure 13.5. This application illustrates that, despite the appar- 
ent simplicity of this problem, convergence difficulties can occur with minimization 
search procedures, and several runs may be needed to get correct results. 

An elementary way to analyze the proximity of two surfaces is to describe each 
surface by a grid of points and find the smallest element in a matrix describing the 
distance from point i of the first surface to a point j of the second surface. Large array 
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CASE 1 CASE2 


4 
2 2 
y axis 9 x axis 
CASE 3 CASE 4 
4 0 l 
2 2 = 
x 2 x -2 
N N 
0 -4 
4 4 M 4 
0 z i 0 d g 
: 0 ; 0 
y axis x axis y axis x axis 


Figure 13.5: Geometry for Four Test Cases 
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dimensions can occur since a typical 100 by 100 surface grid involves 10,000 points 
and 30,000 coordinate values. The adjacency matrix for two surfaces, each using 
10,000 points, has one hundred million points and would consume 2400 megabytes 
of memory when stored unpartitioned. However, memory limitations can be over- 
come by processing a few points at a time. In the program given below, a function 
surf2surf is presented to perform exhaustive search. It works well for the cylinder to 
cylinder problem and also handles some special cases. Since points and space curves 
are degenerate examples of surfaces, surf2surf can solve problems like obtaining 
the point on a curve closest to an arbitrary point in space. 

For surfaces described by equations of the form r(s1, s2) and R(s3, s4), the prox- 
imity problem can be treated by minimizing norm(r — R)?as a function of [s1 , s2, 
83 , S4]. In this context, let us discuss briefly the concepts used in function fmin- 
search based on the flexible polyhedron search procedure developed by Nelder and 
Mead [ ]. The search employs a polyhedron having n + 1 corners in n space, which 
are initially aggregated about a starting point xo. A sequence of moves repeatedly 
replaces corners at which the objective function has maximum values, with new cor- 
ners corresponding to smaller values. Ultimately, the polyhedron is reduced in size 
and contracts to a point where the objective function is perceived to have a rela- 
tive minimum. The algorithm embodied in fminsearch is useful but it sometimes 
gives false convergence. This experience led the authors to implement, for compari- 
son purposes, a somewhat shorter version of the Nelder and Mead algorithm given in 
function nelmed shown in the following program cylclose. This program is designed 
to solve four test problems using functions fminsearch, nelmed, or surf2surf. Both 
implementations of the flexible polyhedron search are vulnerable to false conver- 
gence; so, it is necessary to initiate the search several times using random starting 
points. By making enough trials so that the same best result is obtained several 
times, reasonable confidence in the answers can be achieved. Furthermore, the pro- 
gram shows images of the cylinders and connecting minimum distance lines. These 
images can be rotated interactively to observe the validity of results. In the test cases 
considered, about eight trials was sufficient to produce the same best results at least 
twice. Some results showing computer output for case 4 are typical. 


cylclose(1); 


CASE 4 USING FUNCTION NELMED 


Trial Minimum Function 
Number Distance Evaluations 

1 .915 163 

2 .916 161 

3 .710 207 

4 2.293 156 

5 .710 154 

6 2.165 139 

7 2.165 122 

8 £7210 182 
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The analysis used FUNCTION NELMED 
Shortest Distance E 1.710 
Function Evaluations = 1284 
Compute Time E 4.450 secs 
cylclose(1); 
CASE 4 USING FUNCTION FMINSEARCH 
Trial Minimum Function 
Number Distance Evaluations 

1 1.710 223 

2 2.293 472 

3 2.293 693 

4 2.293 295 

5 2.165 286 

6 2.165 585 

7 .710 265 

8 .915 231 


The analysis used FUNCTI 
Distance 


Shortest 


Function Evaluations 


Compute T 


cylclose( 


CASE 4 US 
Shortest 


ime 


3); 


NG 


EXHAUST 


Distance 


Function Evaluations 


Compute T 


ime 


[ON FMINSEARCH 


1.710 
3050 
10.930 secs 


VE 


EARCH 


1.729 
546 
0.440 secs 


Note that incorrect answers were obtained repeatedly by fminsearch and nelmed, 
whereas exhaustive search gave the fastest and most reliable solution. Readers in- 
terested in exploring the convergence problems occurring with the Nelder and Mead 
search will find it instructive to run program cylclose to observe the variations in re- 
sults produced from randomly chosen starting points. This example problem shows 
clearly that, unless the best result among a number of trials is taken, an incorrect 
answer may occur. 


13.6.1 Discussion of the Computer Code 


Program cylclose uses minimization search to determine the closest points on two 
arbitrarily positioned circular cylinders. Three solution methods are provided using 
functions fminsearch, nelmed, or surf2surf. Four test cases are included, and other 
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geometries can be analyzed by modifying data lines in function cylclose. The various 


modules in the program are listed in the following table. 


Operation 


cylclose 


cylpoint 


dcyDcyl 
cylfigs 
plot2cyls 
cylpts 
crnrpts 
ortbas 


nelmed 


surf2surf 


srf2srf 


rads 


Program cylclose 


159-178 
182-197 
201 -244 
248-276 
280-300 
304-321 
325-332 
336-475 


479-513 


517-534 


538-550 


several functions are called to plot the geom- 
etry and perform the minimization search 
gives the position of a point on a cylinder sur- 
face 

computes the distance between points on two 
cylinders 

plots the geometries for four data cases 

plots the geometry for two cylinders 
generates a grid of points on a cylinder sur- 
face 

generates a dense set of points in an increas- 
ing set of data set 

creates orthonormal base vectors needed to 
define cylinder geometry 

function which performs the Nelder-Mead 
search 

uses discrete search to compute closest points 
on two surfaces defined by coordinate grids. 
Large grids can be handled by calling func- 
tion srf2srf 

uses discrete search to compute closest points 
on two surfaces defined by coordinate grids 
gives base radii for example problems 


; function [dbest,r,R]= cylclose(srchtype, 


% 


Qo. t. ve mom. N CES 
5 


ntrials,sidlen,tolx,tolf) 


[dbest,r,R]= cylclose(srchtype,ntrials, 


sidlen,tolx,tolf) 


This program locates the points closest 
together on the surfaces of two circular 
cylinders arbitrarily positioned in space. 
A four-dimensional unconstrained search 
is performed using functions NELMED, 

or SURF2SURF. The quantity 


FMINSEARCH, 
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. ^ minimized is the square of the distance 

. ^ from an arbitrary point on one cylinder 

s 4 to an arbitrary point on the other cylinder. 
. ^ The search parameters specify axial and 

. ^ circumferential coordinates of points on 

. ^ the cylinder surfaces. 


: ^ srchtype - selects the solution method. Use 


a1: % 1,2, or 3 for NELMED, FMINSEARCH, 
22: % or SURF2SURF 

23: ^ ntrials - Number of times the solution is 
24: h repeated to avoid false 

25: h convergence 

2: ^ Sidlen - initial polyhedron side length 
ar: A tolx - Convergence tolerance on solution 
28: s vector 

2: A tolf - Convergence tolerance on function 
30: % value 


; 4 User m functions called: 


33: % cylpoint, dcyl2cyl, cylfigs, plot2cyls 
34 h cylpts, cornrpts, ortbasis, nelmed, 
5^ surfmany, surf2surf, srf2srf, rads 


; if nargin«5, tolf-1e-4; end 
; if nargin<4, tolx-1e-2; end 
3: if nargin<3, sidlen-.5; end 
; if nargin<2, ntrials-8; end 
; if nargin«1, srchtype-1; end 


; if srchtype-- 


fname=’FUNCTION NELMED’ ; 


s elseif srchtype== 


fname=’FUNCTION FMINSEARCH'; 


45 else 

48 fname=’ EXHAUSTIVE SEARCH'; 
49: end 

50: 

51: disp(’ >) 3 


». dispC CYLINDER PROXIMITY ANALYSIS’) 
s: disp( USING A FOUR-DIMENSIONAL SEARCH!) 


s: cylfigs, drawnow, disp(’ ?), dumy=input(... 
s: "Press return to begin the search’,’s’); 
: Close; ncases=4; 
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: for jcase=1:ncases 


disp(' ?), disp Cl? CASE ’,... 
num2str(jcase),’ USING ’,fname] ) 


^4 Define several data cases 
switch jcase 
case 1 
rad-1; len-3; r0-2[4,0,0]; v=[0,0,1]; 
Rad=1; Len-3; RO=[0,4,0]; V-[0,0,1]; 
case 2 
rad-1; len=3; r0-[4,0,0]; v 
Rad-1; Len-3; RO=[0,4,0]; V 
case 3 
rad-1; len-5; r0-2[4,0,0]; v-2[-4,0,3]; 
Rad-1; Len=5; RO=[0,4,0]; V=[0,0,1]; 
case 4 
rad-1; len=4*sqrt(2); r0=[4,0,0]; 
v=(-1,1,0]; 
Rad=1; Len-3; RO=[0,0,-2]; V=[0,0,-1]; 
end 


^ Create data parameters used repeatedly 
^ during the search process 


^ First cylinder 
dat-cumsum([0;rad;len;rad]); 
dat-dat/max(dat); zdat-[dat,[0;0;1en;len]]; 
rdat-[dat,[0;rad;rad;0]]l; m=ortbasis(v); 


^ Second cylinder 
dat=cumsum([0;Rad;Len;Rad]) ; 
dat=dat/max(dat); Zdat=[dat, [0;0;Len;Len]]; 
Rdat=[dat, [0;Rad;Rad;0]]; M=ortbasis(V); 


^ Make several searches starting from 
^ randomly chosen points and keep 
^ the best answer obtained 
ntotal-0; ntype=zeros(1,5); disp(’ ?) 
tic; dbest=realmax; opts=optimset; 
if srchtype<3 
disp( Trial Minimum Function!) 
disp( Number Distance Evaluations’) 
for k=1:ntrials 
winit-2*pi*rand(4,1); 
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if srchtype--1 % Search using nelmed 
[w,fmin,nvals,ntyp]=nelmed(@dcyl2cyl,... 
winit,sidlen,tolx,tolf,2000,0,... 
r0,m,rdat,zdat ,RO,M,Rdat,Zdat) ; 
elseif srchtype==2 % Search using fminsearch 


[w,fmin,xflag,outp]=fminsearch(@dcyl2cyl,... 


winit,opts,r0,m,rdat,zdat,RO,M,Rdat,Zdat) ; 


nvals-outp.funcCount; ntyp-zeros(1,5); 
end 
dk=sqrt (dcyl2cyl(w,r0,m,rdat,zdat,... 
RO,M,Rdat,Zdat)); 
fprintf( 44i %8.3f %7i\n’,k,dk,nvals) 
if dk«dbest, dbest-dk; W-w; end 
ntotal-ntotal*nvals; ntype=ntypetntyp; 
end 
w-W; r-cylpoint(w(1),w(2),r0,m,rdat,zdat); 
R=cylpoint (w(3) ,w(4) ,RO,M,Rdat , Zdat) ; 
t=toc; 
fprintf([’\nThe analysis used ’,fname,’\n’]) 
hif srchtype==1 


^ fprintf([’\nReflect Expand Contract ’,... 


^ Shrink \n/4i ATi 49i %7i\n’] ,ntype(2),... 
^ ntype(3),ntype(4),ntype(5)) 
Zend 

else 
dplot=0.3; tic; 
[x,y,z,X,Y,Z]=plot2cyls(rad,len,r0,v,... 
Rad,Len,RO,V,dplot,’ ?); close; 
[dbest ,r,R]=surf2surf(x,y,z,X,Y,Z); 
ntotal=length(x)*length(X); t=toc; 


end 

fprintf(... 

[’Shortest Distance = %8.3f\n’,... 
^IFunction Evaluations = %8i\n’,... 


'Compute Time 4833f seca \n? ] i... 


dbest ,ntotal,t) 


n-1; Rr=repmat(R,1,n+1)+(r-R)*(0:n)/n; 

hold off; clf, 

titl=[’CASE ’ ,num2str(jcase),’ USING ’,fname] ; 

dplot=0.3; plot2cyls(... 
rad,len,rO,v,Rad,Len,RO,V,dplot,titl); 

colormap([1 1 0]), hold on, 

plot3(Rr(1,:),Rr(2,:),Rr(3,:),"linewidth',2) 

title([titl,’ : DISTANCE = ’,... 
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num2str(dbest),’, CPU TIME = ’,... 
num2str(t),’ SECS’]) 

rotate3d on, shg, disp? ?) 
disp(’Rotate the figure or press’) 
disp( return to continue’) 
dumy=input(’ ’,’s’); close 


55: end 


. 4 This function computes the position of a 

. 4 point on the surface of a circular cylinder 
. 4 arbitrarily positioned in space. The argument 
s ^ list parameters have the following form, 

. ^ where rad means cylinder radius, and len 
7: 4 means cylinder length. 

& 4 b=2*rad+len; 

» ^ zdat-[[0,0]; [rad/b, 0]; 

A [(rad*len)/b, len];[ 1, len]]; 

; 4 rdat-zdat; rdat(2,2)=rad; 

: 4 rdat(3,2)-rad; rdat(4,2)=0; 


; u72*pi*sin(w1)^2; v-sin(w2)^2; 

s z-interpli(zdat(:,1),zdat(:,2),v); 

; rho-interp1(rdat(:,1),rdat(:,2),v); 
; x=rho*cos(u); y=rho*sin(u) ; 

; r=r0(:)+m*l[x;y3z]; 


. function dsqr-dcyl2cyl(... 


w,r0,m,rdat,zdat ,RO,M,Rdat, Zdat) 


: 4 dsqr-dcyl2cyl(w,r0,m,rdat,zdat,RO,M,Rdat,Zdat) 
» ^ This function computes the square of the 

. 4 distance between generic points on the 

. 4 surfaces of two circular cylinders in three 

; ^ dimensions. 


; 4 User m functions called: cylpoint 
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s: global fcount 

: fcount-fcount*ti; 

s r-cylpoint(w(1),w(2),r0,m,rdat,zdat); 
; R=cylpoint (w(3) ,w(4) ,RO,M,Rdat , Zdat) ; 
; dsqr-norm(r-R)^2; 


. 4 cylfigs 


:. 4 This function plots the geometries 
s ^ pertaining to four data cases used 
» ^ to test closest proximity problems 
. 4 involving two circular cylinders 


; 4 User m functions called: plot2cyls 
; w=rads; p-1:2; q-3:4; s-5:6; t=7:8; 

; rad=1; len=3; r0-2[4,0,0]; v=[0,0,1]; 
; Rad=1; Len-3; RO=[0,4,0]; V=[0,0,1]; 


. d=.4; subplot(2,2,1) 
: [x,y,Z,X,Y,Z]=plot2cyls(rad,len,r0,v,Rad,Len,... 


RO,V,d,’CASE 1’); hold on 


; plot3(w(p, 1) ,w(p,2) ,w(p, 3), linewidth’ ,2’) 
: hold off 


: rad=1; len-3; r0=[4,0,0]; v=[3,0,4]; 
. Rad=1; Len-3; RO=[0,4,0]; V=[0,3,4]; 
3 G=.4; subplot(2,2,2); 

: [x,y,Z,X,Y,Z]=plot2cyls(rad,len,r0,v,Rad,Len,... 


RO,V,d,’CASE 2’); hold on 


» plot3(w(q,1),w(q,2),w(q,3) ,? linewidth’ ,2’) 
: hold off 


; rad=1; len=5; r0=[4,0,0]; v=[-4,0,3]; 
; Rad=1; Len=5; RO=[0,4,0]; V=[0,0,1]; 
: d=.4; subplot(2,2,3) 

: [x, y, Z, X, Y,Z] »plot2cy1s(rad,len,r0,v,Rad,Len,... 


RO,V,d,’CASE 3’); hold on 


; plot3(w(s,1),w(s,2) ,w(s,3),’linewidth’ ,2’) 
5 hold off 


. rad-1; len-4*sqrt(2); r0=[4,0,0]; v=[-1,1,0]; 
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; Rad=1; Len-3; RO=[0,0,-2]; V=[0,0,-1]; 
. d=.4; subplot(2,2,4); 
: [x,y,Z,X,Y,Z]=plot2cyls(rad,len,r0,v,Rad,Len,... 


RO,V,d,’CASE 4’); hold on 


: plot3(w(t,1) ,w(t,2) ,w(t,3),’ linewidth’ ,2’) 
s hold off, subplot 
: 4 print -deps cylclose 


: function [x,y,z,X,Y,Z]=plot2cyls(... 


rad,len,r0,vc,Rad,Len,RO,Vc,d,titl) 


(4 (x,y,z,X,Y,Z]=plot2cyls(rad,len,r0O,vc,Rad,... 
mA Len,RO,Vc,d,titl) 


.% This function generates point grids on the 
. 4 surfaces of two circular cylinders and plots 
s ^ both cylinders together 


; ^ User m functions called: cornrpts surfmany 
(4 cylpts 
; if nargin-- 


titl=’TWO CYLINDERS’ ; 
rad-1; len=3; r0=[4,0,0]; vc=[3,0,4]; 
Rad-1; Len=3; RO=[0,4,0]; Vc=[0,3,4]; d=.2; 


. end 

; if isempty(titl), titl=? ’; end 

s u=2*rad+len; v-2*pi*rad; 

; nu-ceil(u/d); nv=ceil(v/d); 

: u=cornrpts([0,rad,rad+len,u] ,nu)/u; 
. v=linspace(0,1,nv); 

: [x,y,z]=cylpts(u,v,rad,len,r0,vc); 
; U=2*Radt+tLen; V=2*pix*Rad; 

;: Nu=ceil(U/d); Nv=ceil(V/d) ; 

. U=cornrpts([0,Rad,Rad+Len,U] , Nu) /U; 
s V-linspace(0,1,Nv); 

: [X, Y, Z] cyl1pts (U, V, Rad, Len, RO, Vc) ; 
s surfmany(x,y,z,X,Y,Z), title(titl) 
; colormap([1 1 0]), shg 


: function [x,y,zl-cylpts(... 


axial,circum,rad,len,rO,vectax) 


4 (x,y,z]=cylpts(axial,circum,rad,len,r0,vectax) 
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: 4 This function computes a grid of points on the 
s ^ surface of a circular cylinder 


;: 4 User m functions called: ortbasis 


; U=2*radtlen; u=U*axial(:); n-length(u); 
; v=2*pixcircum(:)’; m-length(v); 

; ud2 [O, rad,rad*len,U]; 

. r=interp1 (ud, [0,rad,rad,0] ,u) ; 

s z-interpi(ud,[0,0,1en,len],u); 

. x»r*cos(v); y=r*sin(v); z-repmat(z,1,m); 
s 4 W=basis(vectax)*[x(:),y(:),2¢:)]’; 

; wcortbasis(vectax)*[x(:),y (:2,zC€:2] 7; 


; x»rO (1) *reshape (w(1, :) ,n,m) ; 
; yzr0 (2) *reshape(w(2, :) ,n,m) ; 
; z=r0(3)+reshape(w(3,:) ,n,m) ; 


. function v=cornrpts(u,N) 
s ^ V-cornrpts(u,N) 
0 


. 4 This function generates approximately N 

: 4 points between min(u) and max(u) including 

. 4 all points in u plus additional points evenly 
. 4 spaced in each successive interval. 


^u  - vector of points 

^N  - approximate number of output points 
y^ between min(u(:)) and max(u(:)) 

^ v - vector of points in increasing order 


; u=sort(u(:))’; np=length(u) ; 
; d=u(np)-u(1); v=u(1); 
: for j-1:np-1 


dj=u(j+1)-u(j); nj=max(1,fix(N*dj/d)); 
v=[v, [u(j)+dj/nj*(1:nj)]]; 


; end 


325; function mat=ortbasis(v) 


. 4 mat-ortbasis(v) 
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:. 4 This function generates a rotation matrix 
: 4 having v(:)/norm(v) as the third column 


; vev(:)/norm(v); mat-[null(v?),v]; 
; if det(mat)<0O, mat(:,1)=-mat(:,1); end 


; function [xmin,fmin,m,ntype]=nelmed(... 


F,x0,dx,epsx,epsf,M,ifpr,varargin) 


[xnin,fmin,m,ntype]-nelmed(... 


F,x0,dx,epsx,epsf ,M,ifpr,varargin) 


This function performs multidimensional 
unconstrained function minimization using the 
direct search procedure developed by 

J. A. Nelder and R. Mead. The method is 
described in various books such as: 

’ Nonlinear 


F 


x0 
dx 
epsx 
epsf 
M 


ifpr 


varargin 
xmin 


fmin 
m 


ntype 


Optimization’, by M. Avriel 


objective function of the form 
F(x,pl,p2,...) where x is vector 
in n space and pl,p2,... are any 
auxiliary parameters needed to 
define F 

starting vector to initiate 

the search 

initial polyhedron side length 
convergence tolerance on x 
convergence tolerance on 
function values 

function evaluation limit to 
terminate search 

when this parameter equals one, 
different stages in the search 
are printed 

variable length list of parameters 
which can be passed to function F 
coordinates of the smallest 
function value 

smallest function value found 
total number of function 
evaluations made 

a vector containing 
[ninit,nrefl,nexpn,ncontr,nshrnk] 


€ 2003 by CRC Press LLC 


A e e e OR e OR A 


A which tells the number of reflect- 
ew ions, expansions, contractions,and 
5: 4 shrinkages performed 


; 4^ User m functions called: objective function 
vs named in the argument list 


; if isempty(ifpr), ifpr-0; end 

. if isempty(M), M=500; end; 

; if isempty(epsf), epsf-1e-5; end 
» if isempty(epsx), epsx-1e-5; end 


5 ^ Initialize the simplex array 

» X072x0(:); n=length(x0); N=n+1; f-zeros(1,N); 
. x=repmat (x0,1,N) * [zeros (n, 1) , dx*eye(n,n)]; 

: for k=1:N 


f (k)=feval(F,x(:,k),varargin{:}); 


; end 


; ninit-N; nrefl-0; nexpn-0; ncontr-0; 
3 nshrnk-0; m=N; 


; Erx=realmax; Erf=realmax; 

; alpha=1.0; ^ Reflection coefficient 
: beta= 0.5; % Contraction coefficient 
. gamma=2.0; ^ Expansion coefficient 


: 4 Top of the minimization loop 


. While Erx>epsx | Erf>epsf 


[f,k]=sort(f); x=x(:,k); 


%, Exit if maximum allowable number of 
%, function values is exceeded 
if m>M, xmin=x(:,1); fmin=f(1); return; end 


^ Generate the reflected point and 

^4 function value 

c=sum(x(:,1:n),2)/n; xr-c*alpha*(c-x(:,N)); 
fr=feval(F,xr,varargin{:}); m-m*1; 
nrefl-nrefl-*í; 

if ifpr--1, fprintf(’ :RFL \n’); end 


if fr«f(1) 
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^ Expand and take best from expansion 
^ or reflection 

xe-c*gamma* (xr-c); 
fe=feval(F,xe,varargin{:}); 

m-m*i; nexpn=nexpnt1; 

if ifpr--1, fprintf(^ :EXP \n’); end 


if fr<fe 
^ The reflected point was best 
f(N)=fr; x(:,ND-xr; 

else 
^ The expanded point was best 
f(N)=fe; x(:,N)=xe; 

end 


elseif fr<=f(n) % In the middle zone 


f(üD-fr; x(:,N)-xr; 


else 


^ Reflected point exceeds the second 


^ highest value so either use contraction 


^ or shrinkage 


if fr<f (N) 

xx=xr; ff=fr; 
else 

xx=x(:,N); ff=f (N); 
end 


xc=c+beta*(xx-c); 
fc=feval(F,xc,varargin{:}); 
m=m+1; ncontr=ncontr+1; 


if fc<=ff 
^ Accept the contracted value 
x(:,N)-xc; f(N)-fc; 
if ifpr--1, fprintf(’ :CNT \n’); end 


else 
^ Shrink the simplex toward 
^ the best point 
x-(x*repmat (x(:,1),1,N))/2; 
for j-2:N 
f(j)=feval(F,x(:,j),varargin{:}); 
end 
m-m*n; nshrnk-nshrnk-*n; 


© 2003 by CRC Press LLC 


if ifpr--1, fprintf(’ :SHR \n’); end 


end 
end 


^ Evaluate parameters to check convergence 
favg-sum(f)/N; Erf-sqrt(sum((f-favg).^2)/n); 
xcent-sum(x,2)/N; xdif-x-repmat (xcent,1,N); 
Erx-max(sqrt(sum(xdif.^2))); 


. end 4 Bottom of the optimization loop 


; xmin-x(:,1); fmin-f(1); 
. ntype7 [ninit,nrefl,nexpn,ncontr,nshrnk]; 


: function [d,r,R]=surf2surf(x,y,z,X,Y,Z,n) 
: 4 [d,r,R]2surf2surf (x,y,z,X,Y,Z,n) 


: 4 This function determines the closest points on two 
3: ^ Surfaces and the distance between these points. It 
. 4 is similar to function srf2srf except that large 

. 4 arrays can be processed. 


T. 
,£ > 


X. 

Rl 
d 
Po 


R = 


arrays of points on the first surface 
arrays of points on the second surface 
the minimum distance between the surfaces 
vectors containing the coordinates of the 
nearest points on the first and the 
second surface 

length of subvectors used to process the 
data arrays. Sending vectors of length 

n to srf2srf and taking the best of the 
subresults allows processing of large 
arrays of data points 


; % User m functions used: srf2srf 


; if nargin«7, n=500; end 
. N=prod(size(x)); M=prod(size(X)); d=realmax; 
; kN=max(1,floor(N/n)); kM=max(1,floor(M/n)) ; 


: for i=1:kN 


i1=1+(i-1)*n; i2=min(iltn,N); i12=i11:12; 
xi-x(i12); yi-zy(i12); zi=z(i12); 


for j-1:kM 
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ji=t+(j-1)*n; j2-min(ji*n,M); ji12-j1:j2; 
[dij,rij,Rijl-srf2srf(... 
xi,yi,zi,X(j12),Y(j12),Z(j12)); 


if dij<d, d=dij; r=rij; R=Rij; end 
end 
end 
J eoet SSS SSS SS SS SS SSS SSS SSS SSS H== 
; function [d,r,R]=srf2srf(x,y,z,X,Y,Z) 
^ [d,r,R]-srf2srf (x,y,z,X,Y,2Z) 


: 4 This function determines the closest points on two 
su: 4 Surfaces and the distance between these points. 


52: h X,y,Z - arrays of points on the first surface 

55: h X,Y,Z - arrays of points on the second surface 

524 h d - the minimum distance between the surfaces 
525:  r,R - vectors containing the coordinates of the 
526: h nearest points on the first and the 

527: h second surface 


$e X=X(:); y=y(:); z=z(:); n-length(x); v=ones(n,1); 

: X=X(:)?; Y=Y(:)?; Z=Z(:)?; N=length(X); h=ones(1,N); 
sab d2=(x(:,h)-X(v,:)).^2; d2=d2+(y(:,h)-Y(v,:)).^2; 

532: d2=d2+(z(:,h)-Z(v,:)).^2; 

533: [u,i]=min(d2); [d,j]=min(u); i=i(j); d=sqrt(d); 


533 

suc r=[x(i);y(i);z(i)]; R=[X(j);Y(j);Z(j)]; 
535: 

536 (=== 
537: 

sss: function R=rads 

539: 4 R=rads 

540: 4 Radii for the problem solutions 

541: 

542 = [ see 

54s: 0. 7045 3.2903 0.8263 

544: 3.2932 0.7074 0.8295 

545 0.7783 3.4977 0.3767 

546: 3.4994 0.7800 0.3755 

547: 0.0026 3.0000 2.9934 

548: 0.0028 1.0000 3.0001 

549: 0.7034 0.7107 -2.0000 

550: 1.5139 1.5320 -0.7382]; 
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E surfmany(x1,y1,21,x2,]2,22,X9,y9,23, 
(4 xn,yn, zn) 
. 4 See Appendix B 
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Appendix A 


List of MATLAB Routines with Descriptions 


Table A.1: Description of MATLAB Programs and Selected Functions 


1 


finance 
inputv 
polyplot 
squarrun 
squarmap 
cubrange 


pendulum 


animpen 


smdplot 


smdsolve 


strngrun 
strngwav 


animate 


continued on next page 
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Financial analysis program illustrating 
programming methods. 

Function to read several data items on 
one line. 

Program comparing polynomial and 
spline Interpolation. 

Program illustrating conformal map- 
ping of a square. 

Function for Schwarz-Christoffel map- 
ping of a circular disk inside a square. 
Function to compute data range limits 
for 2D or 3D data. 

Program showing animated large oscil- 
lations of a pendulum. 

Function showing pendulum anima- 
tion. 

Program to animate forced motion of a 
spring-mass-damper system. 

Function to solve a constant coefficient 
linear second order differential equa- 
tion with a harmonic forcing function. 
Program animating wave motion in a 
string with given initial deflection. 
Function to compute deflections of a 
vibrating string. 

Function to show animation of a vibrat- 
ing string. 


607 


608 ADVANCED MATH AND MECHANICS APPLICATIONS USING MATLAB 


Chapter 


splinerr Program showing differential geome- 
try properties of a space curve. 

curvprpsp Function using spline interpolation to 
compute differential properties of a 
space curve. 

splined Function to compute first or second 
derivatives of a cubic spline. 

srfex Program illustrating combined plotting 
of several surfaces. 

frus Function to compute points on a frus- 
tum. 

surfmany Function to plot several functions to- 
gether without distortion. 

rgdbodmo Program illustrating 3D rigid body ro- 
tation and translation. 

rotatran Function to perform coordinate rota- 
tion. 

membran Program illustrating static deflection of 
a membrane. 

mbvprun Program to solve a mixed boundary 
value problem for a circular disk. 

makratsq Program showing conformal mapping 
of a square using rational functions. 

ratcof Function to compute coefficients for 
rational function interpolation. 

raterp Function to evaluate a rational func- 
tion using coefficients from function 
raterp. 

strdyneq Program to solve the structural dy- 
namics equation using eigenvalue- 
eigenvector methods. 

fhrmck Function to solve a linear second or- 
der matrix differential equation having 
a harmonic forcing function. 

recmemfr Program illustrating use of functions 
null and eig to compute rectangular 
membrane frequencies. 


continued on next page 
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Chapter 


multimer Program comparing execution of in- 
trinsic MATLAB matrix multiplication 
and slow Fortran style using loops. 

lintrp Function for piecewise linear interpo- 
lation allowing finite jump discontinu- 
ities. 

curvprop Program to compute the length and 
area bounded by a curve defined by 
spline interpolation. 

spcof Function to compute spline interpo- 
lation coefficients used by function 
spterp. 

spterp Function to interpolate, differentiate, 
and integrate a cubic spline having 
general end conditions. 

powermat Function used by functions spcof and 
spterp. 

splineq Function to interpolate, integrate, and 
differentiate using the intrinsic func- 
tion spline. 

splincof Function that computes coefficients 
used by splineg to handle general end 
conditions. 

matlbdat Program that draws the word MAT- 
LAB using a spline. 

finitdif Program to compute finite difference 
formulas. 

findifco Function to compute finite difference 
formulas for derivatives of arbitrary or- 
der. 

simpson Function using Simpson's rule to inte- 
grate an exact function or one defined 
by spline interpolation. 

gcquad Function to perform composite Gauss 
integration of arbitrary order, and re- 
turn the base points and weight factors. 

quadtest Program comparing the performance 
of gequad and quadl for several test 
functions. 


continued on next page 
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Chapter 


areaprog 5 Program to compute area, centroidal 
coordinates and inertial properties 
of general areas bounded by spline 
curves. 

aprop Function to compute geometrical prop- 
erties of general areas. 

volrevol Program to compute geometrical prop- 
erties of partial volumes of revolution 
bounded by spline curves. 

volrev Function to compute geometrical prop- 
erties of partial volumes of revolution. 

rotasurf Function to plot a partial surface of rev- 
olution. 

ropesymu Program using numerical and symbolic 
computation to evaluate geometrical 
properties of a rope shaped solid. 

ropedraw Function to draw a twisted rope shaped 
surface. 

twistprop Function using symbolic computation 
to obtain geometrical properties. 

srfv Function to compute geometrical prop- 
erties of a solid specified by general 
surface coordinates. 

polhdrun Program to produce geometrical prop- 
erties and a surface plot of an arbitrary 
polyhedron. 

polhedron Function for geometrical properties of 
a polyhedron. 

polyxy Function for geometrical properties of 
a polygon. 

sqrtquadtest Program using quadl and gcquad to 
evaluate integrals having square root 
type singularities at the integration end 
points. 

quadqsqrt Function applying gcquad to integrals 
having square root type singularities. 

quadlsqrt Function applying quadl to integrals 
having square root type singularities. 


continued on next page 
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triplint Program applying Gauss quadrature to 
evaluate a triple integral with variable 
integration limits. 

plotjrun Program to compute and plot integer 
order Bessel functions using the FFT. 

runimpv Program using the FFT to analyze 
earthquake data. 

fouapprox Function for Fourier series approxima- 
tion of a general function. 

fouseris Program to plot truncated Fourier se- 
ries expansions of general functions. 

fousum Function to sum a Fourier series and in- 
clude coefficient smoothing. 

cablinea Program showing modal superposition 
analysis of a swinging cable. 

udfrevib Function computing undamped re- 
sponse of a second order matrix differ- 
ential equation with general initial con- 
ditions. 

strdynrk Function using ode45 to solve a second 
order matrix differential equation. 

deisIner Program comparing implicit second 
and fourth order integrators which use 
fixed stepsize. 

mckde2i Function to solve a matrix ODE using a 
second order fixed stepsize integrator. 

mckdedi Function to solve a matrix ODE using 
a fourth order fixed stepsize integrator. 

rkdestab Program to plot stability zones for 
Runge-Kutta integrators. 

prun Program illustrating ode45 response 
calculation of an inverted pendulum. 

toprun Program for dynamic response of a 
spinning top. 

traject Program for a projectile trajectory. 

cablenl Program illustrating animated nonlin- 
ear dynamic response for a multi-link 
cable of rigid links. 


continued on next page 
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plotmotn Function to animate the dynamic re- 
sponse of a cable. 

sprchan Program for animated nonlinear dy- 
namics of an elastic cable shaken at 
both ends. 

laplarec Program using Fourier series to solve 
the Laplace equation in a rectangle 
having general boundary conditions. 

recseris Function to compute a harmonic func- 
tion and gradient components in a rect- 
angular region. 

stringft Program for Fourier series solution and 
animated response for a string with 
given initial displacement. 

forcmove Program for response of a string sub- 
jected to a moving concentrated load. 

membwave Program animating the response of a 
rectangular or circular membrane sub- 
jected to an oscillating concentrated 
force. 

memrecwv Function for dynamic response of a 
rectangular membrane. 

memcirwv Function for dynamic response of a cir- 
cular membrane. 

besjroot Function to compute a table of integer 
order Bessel function roots. 

membanim Function to show animated membrane 
response. 

bemimpac Program showing wave propagation in 
a simply supported beam subjected to 
an oscillating end moment. 

beamanim Function to animate the motion of a vi- 
brating beam. 

pilevibs Program illustrating the response of a 
pile embedded in an oscillating elastic 
foundation. 

slabheat Program for heat conduction in a slab 
having sinusoidally varying end tem- 
perature. 


continued on next page 
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heatcyln Program analyzing transient heat con- 
duction in a circular cylinder. 

tempstdy Function for the steady-state tempera- 
ture in a circular cylinder with general 
boundary conditions. 

foubesco Function to compute coefficients in a 
Fourier-Bessel series. 

besjtabl Function giving a table of integer order 
Bessel function roots. 

rector Program to compute torsional stresses 
in a beam of rectangular cross section. 

eigverr Program comparing eigenvalues of 
a second order differential equation 
computed using finite difference meth- 
ods and using collocation with spline 
interpolation. 

prnstres Function to compute principal stresses 
and principal directions for a symmet- 
ric second order stress tensor. 


trusvibs Program to compute and show anima- 
tion of the natural vibration modes of a 


general pin connected truss. 

drawtruss Function to draw the deflection modes 
of a truss. 

eigsym Function solving the constrained 
eigenvalue problem associated with 
an elastic structure fixed as selected 
points. 

elmstf Function to form mass and stiffness 
matrices of a pin connected truss. 

colbuc Program to compute buckling loads of 
a variable depth column with general 
end conditions. 

cbfreq Program comparing cantilever beam 
natural frequencies computed by ex- 
act, finite difference, and finite element 
methods. 


continued on next page 
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Function to compute exact cantilever 
beam frequencies. 

cbfrqfdm Function to compute cantilever beam 
frequencies using finite difference 
methods. 

cbfrqfem Function to compute cantilever beam 
frequencies using the finite element 
method. 

elipfreq Program for natural frequencies and 
animation of the mode shapes of an el- 
liptic membrane. 

frqsimpl Function to compute elliptic membrane 
natural frequencies and mode shapes. 

eigenrec Function to solve a rectangular eigen- 
value problem of the form: XA + 
BX = AXC + DX). 

plotmode Function to plot the mode shapes of the 
membrane. 

vdb Program to compute shear, moment, 
slope, and deflection in a variable 
depth multi-support beam with general 
external loading conditions. 

extload Function to compute load and defor- 
mation quantities for distributed and 
concentrated loading on a beam. 

sngf Singularity function used to describe 
beam loads. 

trapsum Trapezoidal rule function used to inte- 
grate beam functions. 

sqrtsurf Function used to illustrate branch cut 
discontinuities for an analytic function. 

elipinvr Function to invert the function map- 
ping the exterior of a circle onto the ex- 
terior of an ellipse. 

elipdplt Program showing grid lines for confor- 
mal mapping of a circular disk onto an 
elliptic disk. 


continued on next page 
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elipdisk Function mapping an elliptic disk onto 
a circular disk. 

gridview Function to plot a curvilinear coordi- 
nate grid. 

linfrac Function to perform linear fractional 
transformations. 

crc2crc Function analyzing mapping of circles 
and straight lines under a linear frac- 
tional transformation. 

ecentric Function to determine a concentric an- 
nulus which maps onto a given eccen- 
tric annulus. 

swcsq10 Program illustrating both interior and 
exterior maps regarding a circle and a 
square. 

squarat Rational function map taking the inside 
of a circle onto the interior of a square 
or the exterior of a square onto the ex- 
terior of a square. 

swcsqmap Function using truncated series expan- 


sions in relation to circle to square 


maps. 

lapcrcl Plor solving the Laplace equation 
in a circular disk for either Dirichlet or 
Neumann boundary conditions. 

cauchtst Program using a Cauchy integral to 
solve a mixed boundary value problem 
for a circular disk. 

cauchint Function to numerically evaluate a 
Cauchy integral. 

elipcyl Program illustrating inviscid fluid flow 
about an elliptic cylinder in an infinite 
stream. 

runtors Program using a Cauchy integral and 
conformal mapping to compute tor- 
sional stresses in a beam. 

runplate Program using complex stress func- 
tions to compute stresses in a plate with 
a circular hole. 


continued on next page 
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platecrc Function computing series coefficients 
for complex stress functions pertaining 
to a plate with a circular hole. 

strfun Function to evaluate stress functions 
phi and psi. 

cartstrs Function using complex stress func- 
tions to evaluate Cartesian stress com- 
ponents. 

rec2polr Function transforming stress compo- 
nents from Cartesian to polar coordi- 
nates. 

elipmaxst Program using conformal mapping and 
complex stress functions to compute 
stress in a plate with an elliptic hole. 

runtraj Program using one-dimensional search 
to optimize a projectile trajectory. 

vibfit Program using multi-dimensional 
search to fit a nonlinear equation to 
vibration response data. 

cablsolv Program to compute large deflection 
static equilibrium of a loaded cable. 

brachist Program to determine a minimum time 
descent curve (brachistochrone). 

cylclose Program using multi-dimensional 
search to find the closest points on two 
adjacent circular cylinders. 

surf2surf Function using exhaustive search to 
find the closest points on two surfaces. 

nelmed Function similar to fminsearch which 
implements the Nelder and Mead algo- 
rithm for multi-dimensional search. 
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Appendix B 


Selected Utility and Application Functions 


Function animate 


: function animate(x,y,titl,tim,trace) 
0 


1 
25 
» ^ animate(x,y,titl,tim,trace) 
4 


s ^ This function performs animation of a 2D curve 


6 h X,y - arrays with columns containing curve positions 
7: h for successive times. x can also be a single 

s: h vector if x values do not change. The animation 
A is done by plotting (x(:,j),y(:,j)) for 

10; % j=i:size(y,2). 


u: % titl- title for the graph 
i: ^ tim - the time in seconds between successive plots 


14, if nargin<5, trace-0; else, trace-1; end; 

is: if nargin«4, tim-.05; end 

1: if nargin<3, trac=’’; end; [np,nt]=size(y); 

iz if min(size(x))==1, j=ones(1,nt); x=x(:); 

is else, j-1:nt; end; ax=newplot; 

19: if trace, XOR=’none’; else, XOR=’xor’; end 

2: r=[min(x(:)) ,max(x(:)),min(y(:)) ,max(y(:))]; 

a: faxis(’equal’) ^ Needed for an undistorted plot 
2: axis(r), % axis(’off’) 

23: Curve = line(’color’,’k’,’linestyle’,’-’,... 

2: ?erase’,XOR, ’xdata’,[],’ydata’,[]); 

2: XLabel(’x axis’), ylabel(’y axis’), title(titl) 
2: for k = 1:nt 

27: set (curve, ’xdata’,x(:,j(k)),’ydata’,y(:,k)) 
28: if tim>0, pause(tim), end, drawnow, shg 

29: end 
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Function aprop 


0 

h 

^ [p,zplot]=aprop(xd,yd,kn) 

ome eee e m ee 

^ This function determines geometrical properties 

^ of a general plane area bounded by a spline 

^ curve 

h 

^ xd,yd - data points for spline interpolation 

i with the boundary traversed in counter- 

% clockwise direction. The first and last 

% points must match for boundary closure. 

^ kn - vector of indices of points where the 

% slope is discontinuous to handle corners 

^ like those needed for shapes such as a 

is rectangle. 

^ p - the vector [a,xcg,ycg,axx,axy,ayyl 

4 containing the area, centroid coordinates, 

y^ moment of inertia about the y-axis, 

j^ product of inertia, and moment of inertia 
about the x-axis. 

^ zplot - complex vector of boundary points for 

% plotting the spline interpolated geometry. 

% The points include the numerical quadrature 

% points interspersed with data values. 

[) 

h 

User functions called: gcquad, curve2d 


: function [p,zplot]-aprop(xd,yd,kn) 


: if nargin-- 


td-linspace(0,2*pi,13); kn=[1,13]; 
xd=cos(td)+1; yd=sin(td)+1; 


. end 
. nd=length(xd); nseg=nd-1; 

33: _[dum, bp, wf]=gcquad([] ,1,nd,6,nseg) ; 

3a: [Z,zZplot,zp]=curve2d(xd,yd,kn, bp); 

s w=Lones(size(z)), z, z.*conj(z), z.72].*... 


repmat (imag (conj(z).*zp) ,1,4); 


; v=(wf ° *w) ./ [2,3,8,8]; vr=real(v); vi=imag(v) ; 
: pe[vr(1:2) ,vi(2) ,vr(3)+vr (4) ,vi (4) ,vr (3) -vr (4)] ; 
: p(27p(2/pOD; p(3)=p(3)/p(1) ; 
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Function besjroot 


s 


35: 


Q9. mU GO Capo oe 3E CIS n 


: function rts-besjroot(norder,nrts,tol) 


rts-besjroot(norder,nrts,tol) 

This function computes an array of positive roots 

of the integer order Bessel functions besselj of 

the first kind for various orders. A chosen number 

of roots is computed for each order 

norder - a vector of function orders for which 
roots are to be computed. Taking 3:5 
for norder would use orders 3,4, and 5. 

nrts | - the number of positive roots computed for 
each order. Roots at x-0 are ignored. 

rts - an array of roots having length(norder) 
rows and nrts columns. The element in 
column k and row i is the k'th root of 
the function besselj(norder(i),x). 

tol - error tolerance for root computation. 


; if nargin«3, tol-1e-5; end 

; Jn=inline(’besselj(n,x)’,’x’,’n’); 
22: N= 
23: Opt=optimset(’TolFun’ ,tol,’TolX’ ,tol); 
24 for k=1:N 


length(norder); rts-ones(N,nrts)*nan; 


n-norder(k); xmax-1.25*pi*(nrts-1/4*n/2); 
xsrch-.1:pi/4:xmax; fb-besselj(n,xsrch); 
nf-length(fb); K-find(fb(1:nf-1).*fb(2:nf)«-0); 
if length(K)«nrts 
disp(C Search error in function besjroot’) 
rts-nan; return 
else 
K-K(1:nrts); 
for i-1:nrts 
interval=xsrch(K(i) :K(i)+1); 
rts(k,i)-fzero(jn,interval,opt,n); 
end 
end 


; end 
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Function cubrange 


. function range-cubrange(xyz,ovrsiz) 
0 = : 
4 range-cubrange(xyz,ovrsiz) 


^ This function determines limits for a square 

^ or cube shaped region for plotting data values 
^ in the columns of array xyz to an undistorted 
^ Scale 


Q0. NCC SON COD ge se CEY om 
os 
i 
i 
i 
a 
a 
i 
i 
H 
i 
i 
a 
i 
a 
i 
a 
i 
a 
i 
a 
i 
a 
i 
i 
i 
i 
i 


o: % 

1: 4 XYZ - a matrix of the form [x,y] or [x,y,z] 
u: 4 where x,y,z are vectors of coordinate 
12 % points 

is, 4 ovrsiz - a scale factor for increasing the 

1: h window size. This parameter is set to 
15: h one if only one input is given. 

16: 4, 

i: ^ range - a vector used by function axis to set 
18: h window limits to plot x,y,z points 

19: h undistorted. This vector has the form 
2: % [xnin,xmax,ymin,ymax] when xyz has 

2: h only two columns or the form 

22: H [xmin,xmax, ymin, ymax, zmin,zmax] 

23: h when xyz has three columns. 

24: 4, 

2: À User m functions called: none 

26: p SPP SST Str STS SI TTS HSS SPST SPSS Sr aS SS SS SHS STs 

27: 

2: if nargin--1, ovrsiz=1; end 


2: pmin-min(xyz); pmax-max(xyz); pm-(pmin-*pmax)/2; 
30: pd=max (ovrsiz/2* (pmax-pmin) ) ; 

3: if length (pmin)==2 

a»  Yrange=pm([1,1,2,2])+pd*[-1,1,-1,1]; 

33: else 

3:  range-pm([1 1 2 2 3 3])+pd*[-1,1,-1,1,-1,1]; 
ss; end 


Function curve2d 


; function [z,zplot,zp]-curve2d(xd,yd,kn,t) 
205 
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: 4 [z,zplot,zp]=curve2d(xd,yd,kn,t) 


^ This function generates a spline curve through 
^ given data points with corners (slope dis- 
^ continuities) allowed as selected points. 


4 xdyd - 


. 4 kn m 


:% zplot - 


real data vectors of length nd 
defining the curve traversed in 
counterclockwise order. 

vectors of point indices, between one 
and nd, where slope discontinuities 
occur 

a vector of parameter values at which 
points on the spline curve are 
computed. The components of t normally 
range from one to nd, except when t is 
a negative integer,-m. Then t is 
replaced by a vector of equally spaced 
values using m steps between each 
successive pair of points. 

vector of points on the spline curve 
corresponding to the vector t 

a complex vector of points suitable 
for plotting the geometry 

first derivative of z with respect to 
t for the same values of t as is used 
to compute z 


; ^ User m functions called: splined 


. nd-length(xd); zd-xd(:)*i*yd(:); td=(1:nd)’; 
. if isempty(kn), kn-[1;nd]; end 

s kn=sort(kn(:)); if kn(1)~=1, kn=[1;kn]; end 
3: if kn(end)^-nd, kn-[kn;nd]; end 

37: N-length(kn)-1; m-round(abs(t(1))); 


ss if -t(1)==m, t=linspace(1,nd,1+N*m)’; end 
; z=[]; zp=[]; zplot-[l; 
: for j=1:N 


ki-kn(j); k2-kn(j*1); K-k1:k2; 

k-find(ki«-t & t«k2); 

if j--N, k-find(ki«-t & t«-k2); end 

if ~isempty (k) 
zk-spline(K,zd(K),t(k)); z=[z;zk]; 


zplot- 


[zplot;zd(k1);zk]; 


if nargout-- 
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48: zp=[zp;splined(K,zd(K) ,t(k))]; 


49: end 
50: end 
51: end 


5» zplot-[zplot;zd(end)]; 


Function eigenrec 


1. function [eigs,vecs,Amat,Bmat]-eigenrec(A,B,C,D) 
z ^ Leigs,vecs,Amat,Bmat]-eigenrec(A,B,C,D) 

» ^ Solve a rectangular eigenvalue problem of the 
a. 4 form: X*A*B*X-lambda* (X*C+D*X) 

5 n-size(B,1); m=size(A,2); s=[n,m]; N=n*m; 

e. Amat-zeros(N,N); Bmat-Amat; kn-1:n; km=1:m; 

v for i-1:n 

&  IK=sub2ind(s,ixones(1,m) ,km) ; 

x  Bikn=B(i,kn); Dikn=D(i,kn); 


10: for j-1:m 

1 I-sub2ind(s,i,j); 

12: Amat(I,IK)-A(km,j)?; Bmat(I,IK)-C(km,j)'; 
13: KJ-sub2ind(s,kn, j*ones(1,n)); 

14: Amat(I,KJ)-Amat(I,KJ)-* Bikn; 

15: Bmat(I,KJ)-Bmat(I,KJ)-* Dikn; 

16: end 

17: end 


1s: [vecs,eigs]=eig(Bmat\Amat) ; 
i: Leigs,k]=sort (diag(eigs)) ; 
2» vecs=reshape(vecs(:,k),n,m,N); 


Function eigsym 


1. function [evecs,eigvals]-eigsym(k,m,c) 
2: 
» ^ Levecs,eigvals]=eigsym(k,m,c) 
4 


s ^ This function solves the eigenvalue of the 
« ^ constrained eigenvalue problem 

n k*x-(lambda)*m*x, with c*x-0. 

s 4 Matrix k must be real symmetric and matrix 
o 4 m must be symmetric and positive definite; 
1: 4 otherwise, computed results will be wrong. 
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15 4 evecs - 


2: 4 eigvals - 


a real symmetric matrix 

a real symmetric positive 
definite matrix 

a matrix defining the constraint 
condition c*x=0. This matrix is 
omitted if no constraint exists. 


matrix of eigenvectors orthogonal 
with respect to k and m. The 
following relations apply: 
evecs!*m*evecs-identity matrix 
evecs!*k*evecs-diag(eigvals). 

a vector of the eigenvalues 
Sorted in increasing order 


2: 4 User m functions called: trifacsm 


s: if nargin-- 


a: — q-null(c); 


32: end 


m-q'*m*q; k-q'*k*q; 


ss u-trifacsm(m); k=u’\k/u; k=(k+k’)/2; 
a: [evecs,eigvals]-eig(k); 


3: [eigvals,jl- 
(:,j); evecs=u\evecs; 


36: CEVECS=eEVECS 


sort(diag(eigvals)); 


s; if nargin--3, evecs=q*evecs; end 


Function fhrmck 


; function [t, 


Qo. SU TG came 22 Ld oS 
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A [t,y,lam]- 


y,lam]-fhrmck(m,c,k,f1,f2,w,tlim,nt,yO,vO) 


fhrmck(m,c,k,f1,f2,w,tlim,nt,yO,vO) 


This function uses eigenfunction analysis to solve 

^ the matrix differential equation 

A —mky?? (t)*c*y? (t) *k*y (t) -f1*cos (wet) +£2*sin (wet) 

^ with initial conditions of y(0)=y0, y?(0)-vO 

The solution is general unless 1) a zero or repeated 


1: 4 eigenvalue occurs or 2) the system is undamped and 
u: A the forcing function matches a natural frequency. 


: 4 If either 


error condition occurs, program execution 


13: 4 terminates with t and y set to nan. 
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25: 


45: 
. 4 for undamped resonance 

. wmin=abs(lam(1)); tol-wmin/1e6; 

: [dif ,J]=min(abs(lam-i*w)); 1lj=num2str(lam(J)); 
; if wmin==0, disp? ?) 


nt 


lam 


mass, damping, and stiffness matrices 
amplitude vectors for the sine and cosine 
forcing function components 

frequency of the forcing function 

a vector containing the minimum and 
maximum time limits for evaluation of 

the solution 

the number of times at which the solution 
is evaluated within the chosen limits 

for which y(t) is computed 

initial position and velocity vectors 


vector of time values for the solution 
matrix of solution values where y(i,j) 
is the value of component j at time t(i) 
the complex natural frequencies arranged 
in order of increasing absolute value 


5 if nargin--0 % Generate default data using 2 masses 


m-eye(2,2); k=[2,-1;-1,1]; c=.3*k; 
fi-[0;1]; f2-[0;0]; w=0.6; tlim-[0,100]; nt=400; 


: end 
37; n=size(m,1); t-linspace(tlim(1),tlim(2),nt); 
3: if nargin<10, yO-zeros(n,1); v0=y0; end 


. ^ Determine eigenvalues and eigenvectors for 

. 4^ the homogeneous solution 

: A=[zeros (n,n), eye(n,n); -m\[k, c]]; 

. [U,lam]=eig(A); [lam,j]=sort(diag(lam)); U=U(:,j); 


^ Check for zero or repeated eigenvalues and 


disp(C The homogeneous equation has a zero’) 
disp(’eigenvalue which is not allowed.) 
disp(’Execution is terminated’), disp(’ ?) 
t=nan; y=nan; return 


. elseif any(abs (diff (lam) )<tol) 


disp(’A repeated eigenvalue occurred.’) 
disp(’Execution is terminated’) ,disp(’ ?) 
t=nan; y=nan; return 


; elseif dif<tol & sum(abs(c(:)))==0 
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disp(C The system is undamped and the forcing’) 

disp([’function resonates with ’,... 
'eigenvalue ’,1j]) 

disp(’Execution is terminated.’) 

disp(? ?), t=nan; y=nan; return 


;: else 


^ Determine the particular solution 
a-(-w^2x*mtkti*w*c)N(Cf1-i*f2); 
yp7real(axexp(i*w*t)); 

yp0=real(a); vpO-real(i*w*a); 


; end 


: ^ Scale the homogeneous solution to satisfy the 
; ^ initial conditions 

; U-U*diag(UN[yO-yp0; vO-vp0]); 

; yh=real(U(1:n, :) *exp(1am*t)) ; 


; 4 Combine results to obtain the total solution 
s t=t(:); y=Lyptyh]’; 


: ^ Show data graphically only for default case 
; if nargin-- 


waterfall(t,(1:n),y?), xlabel(’time axis’) 
ylabel(’mass index’), zlabel(’Displacements’ ) 
title([’DISPLACEMENT HISTORY FOR A ’,... 

int2str(n),’-MASS SYSTEM?]) 
colormap([1,0,0]), shg 


; end 


Function findifco 


; function [c,e,m,crat]-findifco(k,a) 


4 [c,e,m,crat]=findifco(k,a) 


^ This function approximates the k'th derivative 
^ of a function using function values at n 

^ interpolation points. Let f(x) be a general 

^ function having its k’th derivative denoted 

^ by F(x,k). The finite difference approximation 


. 4 for the k’th derivative employing a stepsize h 
. 4 is given by: 
^ F(x,k)=Sum(c(j) *f (xta(j)*h), j=1:n)/h^k + 
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35: 


3: C-A(k*1,:); e=-ec(kt1,:); 


37 


ae TruncationError 

. 4 with m=n-k being the order of truncation 
; 4 error which decreases like h^m and 

; 4 TruncationError-(h^m)*(e(1)*F(x,n)*... 

; 4 e(2)*F (x,n+1) *ht+e (3) *F(x,n*2) *h^2*0(h^3)) 


(^a - a vector of length n defining the 

20: h interpolation points x*a(j)*h where 
=% x is an arbitrary parameter point 

2: % K - order of derivative evaluated at x 
a h C - the weighting coeffients in the 

24: h difference formula above. c(j) is 
ch the multiplier for value f(x*a(j)*h) 
ME - error component vector in the above 

27: h difference formula 

as: fh m - order of truncation order in the 

29: h formula. The relation m=n-k applies. 


. 4 crat - a matrix of integers such that c is 
=% approximated by crat(1,:)./crat(2,:) 


a» a=a(:); n-length(a); m-n-k; mat=ones(n,n+4); 


: for j=2:n+4; mat(:,j)=a/(j-1).*mat(:,j-1); end 
A-pinv(mat(:,1:n)); ec=-A*mat(: ,n+1:n+4) ; 


: [ctop, cbot]=rat(c,le-8); crat=[ctop(:)’;cbot(:)’]; 


Function gcquad 


e 


Qoi SU 18 VOV. a cS HS 


. function [val,bp,wf]=gcquad(func,xlow,... 
xhigh,nquad,mparts,varargin) 


h 
^ [val,bp,wf]=gcquad(func,xlow,... 
% xhigh,nquad,mparts,varargin) 
4, p OE E E E E E OE E E E E OE E OE OE E OE E E E 
h 


^ This function integrates a general function using 

: ^ a composite Gauss formula of arbitrary order. The 

. ^ integral value is returned along with base points 

. ^ and weight factors obtained by an eigenvalue based 
. 4 method. The integration interval is divided into 

. 4^ mparts subintervals of equal length and integration 
. ^ over each part is performed with a Gauss formula 
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2%: 4 Xlow,xhigh - 


. ^ making nquad function evaluations. Results are 
. 4 exact for polynomials of degree up to 2*nquad-1. 


ommum em eem eee 
% func - name of a function to be integrated 
5 having an argument list of the form 
zy func(x,pi1,p2,...) where any auxiliary 
y^ parameters pi,p2,.. are passed through 
^ variable varargin. Use [ ] for the 
% function name if only the base points 
j^ and weight factors are needed. 


integration limits 


27: ^ nquad - order of Gauss formula chosen 
. 4 mparts - number of subintervals selected in 
5 the composite integration 
. 4 varargin - variable length parameter used to 
% pass additional arguments needed in 
NA the integrand func 
| 4 val - numerical value of the integral 
34: 4 bp,wf - vectors containing base points and 
y^ weight factors in the composite 
i integral formula 
[) 
h 


. 4 A typical calculation such as: 


3: 4 Fun=inline(’ (sin(w*t).^2) .*exp(c*t) ? ,? t? ^w? ,?c?); 


. 4 A20; B=12; nquad-21; mparts-10; w-10; c=8; 


: 4 [value,pcterr]- 
1.935685556078172e+040 which is 


. 4 gives value = 


integrate(Fun,A,B,nquad,mparts,w,c); 


. ^ accurate within an error of 1.9e-13 percent. 


s 4 User m functions called: the function name passed 


in the argument list 


if isempty(nquad), nquad=10; end 
if isempty(mparts), mparts-1; end 


Compute base points and weight factors 
for the single interval [-1,1]. (Ref: 
'Methods of Numerical Integration? by 


s 4 P. Davis and P 


. Rabinowitz, page 93) 


ss U=(1:nquad-1) ./sqrt ((2*(1:nquad-1)).*2-1); 


: [vc, bp] =eig(diag(u,-1)+diag(u,1)); 
: [bp,k]=sort(diag(bp)); wf-2*vc(1,k)?.^2; 
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61: 
62: 
63: 
64: 
65: 
66: 


67: 
68: 
69: 
70: 


71: 
72: 
73: 
74: 
75: 


^ Modify the base points and weight factors 

^ to apply for a composite interval 
d=(xhigh-xlow)/mparts;  di1-d/2; 

dbp=di*bp(:); dwf-di*wf(:); dr=d*(1:mparts) ; 
cbp=dbp(: ,ones(1,mparts) )+ 

dr (ones (nquad, 1) , :) * (x1ow-d1); 
cwf=dwf(:,ones(1,mparts)); wf-cwf(:); bp=cbp(:); 


^ Compute the integral 
if isempty(func) 
val=[]; 
else 
f=feval(func,bp,varargin{:}); val=wf’*f(:); 
end 


Function gridview 


. function gridview(x,y,xlabl,ylabl,titl) 


^ gridview(x,y,xlabl,ylabl,titl) 


^ This function views a surface from the top 

^4 to show the coordinate lines of the surface. 
^ It is useful for illustrating how coordinate 
^4 lines distort in a conformal transformation. 


. ^ Calling gridview with no arguments depicts the 
. 4^ mapping of a polar coordinate grid map under 

. ^ a transformation of the form 

| 4 z-R*(zetatm/zeta). 


14 A 

is: A X,Y - real matrices defining a 

16: h curvilinear coordinate system 
iz: ^ xlabl,ylabl - labels for x and y axes 

1s: h titl - title for the graph 

19: % 

2» 4^ User m functions called: cubrange 
o ——— 
22: 

23: À Close 


; if nargin«5 


xlabl=’real axis’; ylabl=’imaginary axis’; 
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26: 


27: G 


2 


Dd 


37: e 


tu 


2 


S1 


E 


50: eG 


70: 


| f 


tities 
nd 


Default example using z=R*(zetatm/zeta) 

f nargin-- 

zeta=linspace(1,3,10)’* 

exp(ixlinspace(0,2*pi,81)); 
a-2; b-1; R=(atb)/2; m=(a-b)/(atb) ; 
z=R*(zetatm./zeta); x-real(z); y=imag(z) ; 
titl=[’Circular Annulus Mapped onto an ’, 
?Elliptical Annulus’]; 

nd 


ange=cubrange([x(:),y(:)],1.1); 


The data define a curve 
f size(x,1)--1 | size(x,2)== 
plot(x,y,’-k’); xlabel(xlabl); ylabel(ylab1); 
title(titl); axis(’equal’); axis(range) ; 
grid on; figure(gcf); 
if nargin==0 
print -deps gridviewl; 
end 
The data define a surface 
lse 
plotOx;y,^"ke^.x^.y^,"k-*) 
xlabel(xlabl); ylabel(ylabl); title(titl); 
axis(’equal’); axis(range); grid on; 
figure(gcf); 
if nargin==0 
print -deps gridview; 
end 


unction range=cubrange(xyz,ovrsiz) 


range-cubrange(xyz,ovrsiz) 

This function determines limits for a square 
or cube shaped region for plotting data values 
in the columns of array xyz to an undistorted 
scale 
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n: h XyZ - a matrix of the form [x,y] or [x,y,z] 


72: h where x,y,z are vectors of coordinate 
73: h points 

7:4 h Ovrsiz - a scale factor for increasing the 

78: h window size. This parameter is set to 
76: h one if only one input is given. 

a7 A 

7: ^ range - a vector used by function axis to set 
7: h window limits to plot x,y,z points 

so: % undistorted. This vector has the form 
ai: % [xnin,xmax,ymin,ymax] when xyz has 

s2: % only two columns or the form 

83: h [xmin,xmax, ymin, ymax, zmin,zmax] 

s4: h when xyz has three columns. 

85: 4, 

s: ^ User m functions called: none 

Bie. secre Herc eere Ne 


s: if nargin--1, ovrsiz-1; end 

oo: pmin-min(xyz); pmax-max(xyz); pm-(pmin-*pmax)/2; 
9: pd=max (ovrsiz/2*(pmax-pmin)); 

ə: if length (pmin)==2 

o».  range-pm([1,1,2,2]) *pd*[-1,1,-1,1]; 

94. else 

ə:  range-pm([1 1 2 2 3 3])+pd*[-1,1,-1,1,-1,1]; 
ə: end 


Function inputv 


: function varargout-inputv (prompt) 
0 


^ [a1,a2,...,a nargout]-inputv (prompt) 


% This function reads several values on one line. 
^ The items should be separated by commas or 
% blanks. 


Qo unt o imo e IN Ds 
23 


o: % 

1: 4 prompt - A string preceding the 
u: % data entry. It is set 
12: % to ? ? ? if no value of 
13: h prompt is given. 

u: 4 81,82,...,a nargout - The output variables 
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15: h that are created. If 


16: h not enough data values 
ir: h are given following the 
is: h prompt, the remaining 
19: h undefined values are 

2: % set equal to NaN 

a: h 


2: ^ A typical function call is: 
23: 4 [A,B,C,D]-inputv(?Enter values of A,B,C,D: ?) 


27: if nargin--0, prompt-? ? ’; end 

2: U=input(prompt,’s’); v=eval([’L’,u,’]’]); 
2» ni-length(v); no=nargout ; 

30: varargout=cell(1,no); k=min(ni,no) ; 

3: for j=l:k, varargout{j}=v(j); end 

32: if no>ni 

3: for j=niti:no, varargout{j}=nan; end 

34, end 


Function lintrp 


; function y-lintrp(xd,yd,x) 
^ y=lintrp(xd,yd,x) 


^ This function performs piecewise linear 

^ interpolation through data values stored in 

^ xd, yd, where xd values are arranged in 

^ nondecreasing order. The function can handle 

: 4 discontinuous functions specified when some 
1: 4 Successive values in xd are equal. Then the 
u: A repeated xd values are shifted by a small 

: 4 amount to remove the discontinuities. 

: 4 Interpolation for any points outside the range 
1; ^ of xd is also performed by continuing the line 
is: ^ Segments through the outermost data pairs. 
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iz. h xd,yd - vectors of interpolation data values 


1s: h X - matrix of values where interpolated 
19: h values are required 
20 4 
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a: y - matrix of interpolated values 


22: 


23: k=find (diff (xd) ==0) ; 


2: if length(k)^ 


=0 


25 xd(k+1)=xd(k+1)+(xd(end)-xd(1))*1e3*eps; 


20; end 


2: y=interp! (xd, 


Function manyrts 


yd,x,’ linear’ ,’extrap’); 


. function roots=manyrts(func,a,b,nsteps,... 


Qo RU IN cy SR qr des gen 
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maxrts,tol,varargin) 


^ roots-manyrts(func,a,b,nsteps,maxrts,tol,... 


varargin) 


^ This function attempts to find multiple roots 
^ of a function by searching an interval in steps 
of equal length and finding a root in each 


1: Ý interval where a sign change occurs 


u: 4 func = 
15: 4, a,b = 
i: À nsteps  - 


20 4 maxrts - 


24. 4 tol = 
25: 4, 


2: 4 Varargin - 


30: if nargin«6, 
3: if nargin«5, 


name of a function of the form 
func(x,p1,p2,...) where additional 
parameters after the first are 
passed through varargin 

upper and lower limits of the 
search interval 

number of intervals from a to b 
which are checked to detect a 

sign change 

maximum number of roots sought 
within the search limits. The 
search terminates when the number 
of roots found equals maxrts. 

the root tolerance passed to 
function fzero. A default value of 
1e-10 is used if no value is given 
the cell variable provided to pass 
multiple arguments to function func 


tol-1e-10; end; 
maxrts-100; end 


a» if isstruct(tol), options-tol; 


33; else 
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a4  Options=optimset(’tolfun’ ,tol,’tolx’ ,tol); 
as end 

3: X=linspace(a,b,nsteps); roots=[]; 

37. rtlast--realmax; 

ss for j-1:nsteps-1 

39. xj=x(j); xji=x(j+1); 

a: fj=feval(func,xj,varargin{:}); 

a:  fji-feval(func,xji,varargini:]); 

42: if fj.*fji«-0 


43: rt=fzero(func, [xj,xj1],... 

44: options,varargin{:}); 
45: if (rt-rtlast)>tol 

46: roots-[roots,rt]; rtlast-rt; 
4T: end 

48: end 


a: if length(roots)--maxrts, break, end 
so; end 


Function membanim 


. function membanim(u,x,y,t) 
0 


1 

2: 
0 . . 

» ^ function membanim(u,x,y,t) 
0 

4 


5 ^ This function animates the motion of a 


o ^ vibrating membrane 

n 

s: h u array in which component u(i,j,k) is the 
9: h displacement for y(i),x(j),t(k) 

1: h X,y arrays of x and y coordinates 

i t vector of time values 


is, 4 Compute the plot range 

1: if nargin--0; 

15: [ü;x,y,t]-memrecwv(2,;1,;1,15.5,1.5,. 5,5); 
16: end 

17: Xmin-min(x(:)); xmax=max(x(:)); 

is: ymin=min(y(:)); ymax-max(y(:)); 

19: xmid=(xmintxmax)/2; ymid=(ymintymax)/2; 

2» d=max (xmax-xmin, ymax-ymin)/2; Nt=length(t) ; 
2: range- [xnid-d,xmid*d,ymid-d,ymid*d,... 

22: 3*min(u(:)),3*max(u(:))] ; 
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2: While 1 % Show the animation repeatedly 

2: — dispC 7), disp(’Press return for animation’) 
2:  dumy=input(’or enter 0 to stop > ? ’,’s’); 

o; if ~isempty(dumy) 

28: disp(’ ’), disp?’ All done’), break 

29: end 

30: 

3: ^ Plot positions for successive times 

32 for j=1:Nt 


33: surf(x,y,u(:,:,j)), axis(range) 

34: xlabel(’x axis’), ylabel(’y axis?) 

35: zlabel(’u axis’), titl=sprintf(... 

36: MEMBRANE POSITION AT T=%5.2f’ ,t(j)); 
37: title(titl), colormap([1 1 1]) 

38: colormap([127/255 1 212/255]) 

39: ^ axis off 

40: drawnow, shg, pause(.1) 

4: end 

42: end 


Function plotmotn 


: function plotmotn(x,y,titl,isave) 
0 
^ plotmotn(x,y,titl,isave) 
This function plots the cable time 


^ history described by coordinate values 
^ Stored in the rows of matrices x and y. 


99. xU ge BV. E ue 
23 


» h X,y  - matrices having successive rows 
10: % which describe position 

0 . . 
u: 4 configurations for the cable 


1z ^ titl - a title shown on the plots 
13: h isave - parameter controlling the form 


a: h of output. When isave is not input, 
15: % only one position at a time is shown 
16: h in rapid succession to animate the 
17: h motion. If isave is given a value, 
18: h then successive are all shown at 

19: h once to illustrate a kinematic 

2: % trace of the motion history. 

a: h 
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22: 4, 
0 


23: y 


25: 4, 
26: 4, 


Set a square window to contain all 
possible positions 


2: [nt,n]=size(x); 


28: 1 


f nargin--4, save -1; else, save=0; end 


2: xmin-min(x(:)); xmax-max(x(:)); 


e 
Ex 


. ymin=min(y(:)); ymax-max(y(:)); 


si, W=max (xmax-xmin, ymax-ymin)/2; 
32 xmd-(xmin*xmax)/2; ymd-(ymin-*ymax)/2; 


3: hold off; clf; axis(’normal’); axis(’equal’); 
34: range=[xmd-w,xmd+w, ymd-w, ymdtw] ; 

3: title(titl) 

36: Xlabel(’x axis’); ylabel(’y axis?) 

37: if save== 

s for j=l:nt 

39 xj=x(j,:); yj=y(j,:); 

40 plot(xj,yj,"-k' ,xj;y]s 0k? DS 

al axis(range), axis off 

a2 title(titl) 

43 figure(gcf), drawnow, pause(.1) 

44 end 

as  pause(2) 

46: else 

47 hold off; close 

4: for j-1:nt 

49 xj=x(j,:); yj=y(j,:); 

50 plottxj,v1,'-k^x] 9], Ok 25 

51 axis(range), axis off, hold on 

52 end 

s: — title(titl) 

s4 figure(gcf), drawnow, hold off, pause(2) 
55; end 

56: 

5: ^ Save plot history for subsequent printing 


58: 4, 


print -deps plotmotn 


Function polhedrn 


1. function [v,rc,vrr,irr]-polhedrn(x,y,z,idface) 


2% 


"A 


[v,rc,vrr,irr]=polhedrn(x,y,z,idface) 
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; 4 centroidal coordinates and inertial moments 


4 
6: 4^ This function determines the volume, 
7 
s ^ for an arbitrary polyhedron. 


o: % 

1: 4 X,y,Z - vectors containing the corner 

i indices of the polyhedron 

i: ^ idface - a matrix in which row j defines the 
13: h corner indices of the j’th face. 

1: h Each face is traversed in a 

15: h counterclockwise sense relative to 
16: h the outward normal. The column 

ir: % dimension equals the largest number 
18: h of indices needed to define a face. 
19: h Rows requiring fewer than the 

2: % maximum number of corner indices are 
21: h padded with zeros on the right. 

22: Y 

23: À V - the volume of the polyhedron 

24 h rc - the centroidal radius 

os: h VIT - the integral of R*R’*d(vol) 

265, À irr - the inertia tensor for a rigid body 
27: h of unit mass obtained from vrr as 
283: h eye(3,3) *sum(diag(vrr))-vrr 

29: h 

30: 4^ User m functions called: pyramid 

31: % IAS LT I gee Ap Pe POR I EE TR go Gy ee se A Qu. eA RR eR, E 


as r=[x(:),y(:),z(:)]; nf=size(idface, 1); 
34. V-0; vr-0; vrr=0; 

as: for k=1:nf 

3: — i-idface(k,:); i=i(find(i>0)); 


37: [u,ur,urr]-pyramid(r(i,:)); 
3s v=v+u; vr=vrtur; vrr=vrrturr; 
39: end 


4: rc=vr/v; irr-eye(3,3)*sum(diag(vrr))-vrr; 


Function polyxy 


ıı function [area,xbar,ybar,axx,axy,ayy]=polyxy(x,y) 
"A 


3: ^ [area,xbar,ybar,axx,axy,ayyl-polyxy (x,y) 
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^ This function computes the area, centroidal 
^4 coordinates, and inertial moments of an 
^ arbitrary polygon. 


o% 

10: h X,y - vectors containing the corner 
u: 4 coordinates. The boundary is 
ix traversed in a counterclockwise 
13: h direction 

14: 4, 

i: ^ area - the polygon area 

is 4 xbar,ybar - the centroidal coordinates 
17: Ú axx - integral of x^2*dxdy 

is; h axy - integral of xy*dxdy 

19: ^ ayy - integral of y^2*dxdy 

20: 4, 


; 4 User m functions called: none 


; nzc1:length(x); ni-n*1; 

sı x=[x(:);x(1)]; y-[y C:9;y CD]; 

; a=(x(n).*y(n1)-y(m) .*x(n1))’; 

; area-sum(a)/2; a6=6*area; 

zs Xbar-a*(x(n)*x(n1))/a6; ybar=a*(y(n)+y(n1))/a6; 
2: ayy-a*(y(n).^2*y (n) . «y n1) *y (n1) . ^2) /12; 

; axyza* (x (n) .*(2*y (n) ty (n1)) *x (n1) .* 


(2*y n1) ty (222) /24; 


; axx-a*(x(n) .^2*x(n) .*«x (n1) *x(n1).^2)/12; 


Function quadlsqrt 


. function v-quadlsqrt(fname,type,a,b,tol,trace,varargin) 


^ v-quadlsqrt(fname,type,a,b,tol,trace,varargin) 


^ This function uses the MATLAB integrator quadl 
^ to evaluate integrals having square root type 
^ Singularities at one or both ends of the 

^ integration interval a < x < b. 


. ^ The integrand has the form: 
. 4 func(x)/sqrt(x-a) if type==1. 
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. 4 func(x)/sqrt(b-x) if type==2. 
. 4 func(x)/sqrt((x-a)*(b-x)) if type==3. 


ua: h 

is: ^ func - the handle for a function continuous 
16: h from x=a to x=b 

iz: h type - 1 if the integrand is singular at x-a 
18: h 2 if the integrand is singular at x=b 
19: h 3 if the integrand is singular at both 
2: % x-a and x-b. 

a1: 4 a,b - integration limits with b > a 


2: if nargin«6 | isempty(trace), trace=0; end 
; if nargin<5 | isempty(tol), tol-1e-8; end 
s if nargin<7 


varargin{1i}=type; varargin{2}=[a,b] ; 
varargin{3}=fname; 


23: else 


n-length(varargin); c-[a,b]; varargin{nt+1}=type; 
varargin{n+2}=c; varargin{n+3}=fname; 


; end 


. if type==1 | type== 


v=2*quadl1 (@fshift,0,sqrt(b-a),... 
tol,trace,varargin{:}); 


36: else 


v=quad1 (@fshift ,0,pi,tol,trace,varargin{:}) ; 


3s: end 


. function u-fshift(x,varargin) 

; 4 u7fshift(x,varargin) 

. ^ This function shifts arguments to produce 
s h a nonsingular integrand called by quadl 

. N=length(varargin); fname=varargin{N}; 

. c=varargin{N-1}; type=varargin{N-2}; 

; a=c(1); b=c(2); ci-(b*a)/2; c2=(b-a)/2; 


s Switch type 


case 1, t-atx.^2; case 2, t-b-x.^2; 
case 3, t-ci*c2*cos(x); 


53: end 


s: if N>3, u=feval(fname,t,varargin{1:N-3}); 
; else, u-feval(fname,t); end 
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Function ratcof 


is 


Q9. oU IO Capo 38 CIS un 


. function [a,b]-ratcof(xdata,ydata,ntop,nbot) 


^ [a,b]=ratcof (xdata, ydata,ntop,nbot) 


^ Determine a and b to approximate ydata as 
% a rational function of the variable xdata. 
^ The function has the form: 


h 
ah y(x) = sum(1=>ntop) ( a(j)*x^(j-1) ) / 
m ( 1 + sum(1-»nbot) ( b(j)*x7(j)) D 
h 
. 4 xdata,ydata - input data vectors (real or 
i complex) 
. 4 ntop,nbot - number of series terms used in 
j/ the numerator and the 
-h denominator. 
h 
————— ee ae EE 


: ydata-ydata(:); xdata-xdata(:); 

2: m=length(ydata) ; 

23: if nargin--3, nbot=ntop; end; 

z4 X=ones(m,ntoptnbot); x(:,ntopt1)=-ydata.*xdata; 
: for i-2:ntop, x(:,i)=xdata.*x(:,i-1); end 

2: for i-2:nbot 


x(:,i*ntop)-xdata.*x(:,i*ntop-1); 


; end 
; ab=pinv(x)*ydata; Zab=x\ydata; 
; a=ab(1:ntop); b-ab(ntop*i:ntop*nbot); 


Function raterp 


y Qu e Y N jn 


. function y-raterp(a,b,x) 


^ 


0 


. ^ This function interpolates using coefficients 
: ^ from function ratcof. 


% 


© 2003 by CRC Press LLC 


0 


, a,b - polynomial coefficients from function 
h ratcof 


. 4X  - argument at which function is evaluated 
: 4 y - computed rational function values 
0 
ENCORE 


; a=flipud(a(:)); b=flipud(b(:)); 
: yepolyval(a,x)./(1*x.*polyval(b,x)); 


Function smdsolve 


e 


OOM: OR TOE dr Ce deos 


; function [x,v]=smdsolve(m,c,k,f1,f2,w,x0,v0,t) 


^ (x,v]=smdsolve(m,c,k,f1,£2,w,x0,v0,t) 


^ This function solves the differential equation 
^ m*x?? (t)*c*x? (t) -k*x (t) -f1*cos (w*t) +£2*sin (wet) 
^ with x(0)-xO and x'(0)-vO 


[) 

h 

%m,c,k - mass, damping and stiffness coefficients 
: 4 f1,f2 - magnitudes of cosine and sine terms in 
=h the forcing function 

h W - frequency of the forcing function 
het - vector of times to evaluate the solution 

h xo - computed position and velocity vectors 


. ccrit=2*sqrt (m*k); wn=sqrt (k/m); 


. 4 If the system is undamped and resonance will 
. 4 occur, add a little damping 
2: if c==0 & w--wn; c-ccrit/1e6; end; 


. If damping is critical, modify the damping 

. 4 very slightly to avoid repeated roots 

24 if c==ccrit; c=c*(1+1e-6); end 

25: 

2» 4 Forced response solution 

27: a- (f£1-i*f2)/ (k-m*w^2*i*c*w); 

2: XO=real(a); VO-real(i*w*a); 

2: X=real(axexp(ixw*t)); V-real(i*w*a*exp(i*w*t)); 


. ^ Homogeneous solution 
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32: 
33: 
34: 
35: 
36: 
37: 
38: 


r-sqrt(c^2-4*m*k); 
si=(-ctr)/(2*m); s2=(-c-r)/(2*m) ; 
p=[1,1;s1,s2]\[x0-X0;v0-VO] ; 


^ Total solution satisfying the initial conditions 
x-X*real(p(1)*exp(s1*t)-*p(2)*exp(s2*t)) ; 
v-V*real(p(1)*si*exp(si*t)-*p(2)*s2*exp(s2*t)); 


Function splined 


: function val-splined(xd,yd,x,if2) 


^ val=splined(xd,yd,x,if2) 


6: ^ This function evaluates the first or second 
7, ^ derivative of the piecewise cubic 

& ^ interpolation curve defined by the intrinsic 
» 4 function spline provided in MATLAB.If fewer 
1: 4^ than four data points are input, then simple 
u: % polynomial interpolation is employed 

12: h 

13: ^ xd,yd - data vectors determining the spline 
14 h curve produced by function spline 
i4 X - vector of values where the first or 
16: h the second derivative are desired 
iz ^ if2  - a parameter which is input only if 
18: h y? (x) is required. Otherwise, y'(x) 
19: h is returned. 

20: 4, 

2: ^ val - the first or second derivative values 
22: h for the spline 

23: ^ 

2: 4 User m functions called: none 


2: n=length(xd); [b,c]=unmkpp(spline(xd,yd)); 
z; if n»3 % Use a cubic spline 


if nargin--3, c=[3*c(:,1),2*c(:,2),c(:,3)]; 
else, c-[6*c(:,1),2*c(:,2)]; end 
val-ppval(mkpp(b,c),x); 


; else % Use a simple polynomial 


c=polyder (polyfit(xd(:),yd(:),n-1)); 
if nargin==4, c=polyder(c); end 
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3a. — val-polyval(c,x); 
as; end 


Function splineg 


: function [val,b,c]=splineg(xd,yd,x,deriv,endc,b,c) 


1 
2$ 
» ^ [val,b,c]l=splineg(xd,yd,x,deriv,endc,b,c) 
P 


« 4 For a cubic spline curve through data points 
7z ^ xd,yd, this function evaluates y(x), y’(x), 
& 4 y?’ GO, or integral(yGO *dx, xd(1) to x(j) ) 
o h for j-1:length(x).The coefficients needed to 
1: 4 evaluate the spline are also computed. 


i ^ xd,yd  - data vectors defining the cubic 

13: h spline curve 

ud X - vector of points where curve 

is: % properties are computed. 

1: h deriv - denoting the spline curve as y(x), 

17: h deriv=0 gives a vector for y(x) 

18: h deriv=1 gives a vector for y’(x) 

19: h deriv-2 gives a vector for y''(x) 

20: % deriv-3 gives a vector of values 

2: ^ for integral(y(z)*dz) from xd(1) 
22: h to x(j) for j=1:length(x) 

23: 4 endc - endc-1 makes y’’’(x) continuous at 

24 h xd(2) and xd(end-1). 

25: h endc-[2,1eft slope,right slope] 

26: h imposes slope values at both ends. 

27: h endc=[3,left_slope] imposes the left 
28: h end slope and makes the discontinuity 
29: h of y’’’ at xd(end-1) small. 

30: % endc=[4,right_slope] imposes the right 
ai: % end slope and makes the discontinuity 
32: h of y’’’ at xd(2) small. 

3: % DC coefficients needed to perform the 

34 h spline interpolation. If these are not 
35: % given, function unmkpp is called to 
36: % generate them. 

3: ^ val values y(x),y’(x),y’’(x) or 

38: % integral(y(z)dz, z=xd(1)..x) for 
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deriv-0,1,2, or 3, respectively. 


User m files called: splincof 


. if nargin<5 | isempty(endc), endc-1; end 

. if nargin<7, [b,c]-splincof(xd,yd,endc); end 
s n-length(xd); [N,M]=size(c); 

: Switch deriv 


; case 0 % Function value 


val=ppval (mkpp(b,c) ,x); 


5; case 1 % First derivative 


cC=[3*c(:,1),2»*c(:,2),c(:,3)]; 
val=ppval (mkpp(b,C) ,x); 


s case 2 % Second derivative 


C=[6*c(:,1),2*c(:,2)]; 
val=ppval (mkpp(b,C) ,x); 


: case 3 % Integral values from xd(1) to x 


k=M:-1:1; 

C=[c./k(ones(N,1),:),zeros(N,1)]; 
dx-xd(2:n)-xd(1:n-1); s=zeros(n-2,1); 

for j=1:n-2, s(j)=polyval(C(j,:),dx(j)); end 


C(:,5)=[0;cumsum(s)]; val-ppval(mkpp(b,C),x); 
; end 
j—-——-—--222222222-2222-2-22-22-22-22-222-2-2-2-2-2-2-2-2-2-2------ 
. function [b,c]=splincof (xd, yd,endc) 
h 
^ [b,c]=splincof(xd,yd,endc) 
4, p OE E OE E OE E E E E E E E E E E 
^ This function determines coefficients for 
^ cubic spline interpolation allowing four 
^ different types of end conditions. 
^ xd,yd - data vectors for the interpolation 
^ endc - endc-1 makes y’’’(x) continuous at 
% xd(2) and xd(end-1). 
endc=[2,left_slope,right_slope] 
imposes slope values at both ends. 
^ endc-[3,1left slope] imposes the left 
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i end slope and makes the discontinuity 


85: % of y’’’ at xd(end-1) small. 

86: % endc-[4,right slope] imposes the right 
an % end slope and makes the discontinuity 
88: h of y??? at xd(2) small. 


; if nargin«3, endc=1; end; 
. type=endc(1); xd=xd(:); yd=yd(:); 


: Switch type 


5 case 1 


^ y’’?’?(x) continuous at the xd(2) and xd(end-1) 
[b, c] -unmkpp (spline(xd,yd)); 


: cage 2 
^ Slope given at both ends 
[b, c] »-unmkpp (spline (xd, [endc (2) ; yà; endc(3)1)) ; 


3 case 3 


^ Slope at left end given. Compute right end 
^ Slope. 

[b, c] -unmkpp (spline(xd,yd)); 
c=[3*c(:,1),2»c(:,2),c(:,3)]; 
sright=ppval(mkpp(b,c),xd(end)); 
[b,c]=unmkpp(spline(xd, [endc (2); yd; sright])) ; 


: case 4 

^ Slope at right end known. Compute left end 
^ Slope. 

[b, c] -unmkpp (spline(xd,yd)); 
c=[3*c(:,1),2»c(:,2),c(:,3)]; 
Sleft-ppval(mkpp(b,c),xd(1)); 
[b,c]=unmkpp(spline(xd, [sleft;yd;endc(2)])); 


: end 


Function spterp 


. function [v,c]=spterp(xd,yd,id,x,endv,c) 
: 4 Lv,cl=spterp(xd,yd,id,x,endv,c) 


: 4 This function performs cubic spline interpo- 
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^ lation. Values of y(x),y’(x),y’’(x) or the 
^ integral(y(t)*dt, xd(1)..x) are obtained. 


; if id--0 
; vzydá(1) *si*X4m1/2*X.*X*... 


^ xd, yd - data vectors with xd arranged in 
p/ ascending order. 
% id - id equals 0,1,2,3 to compute y(x), 
j^ y'GO, integral(y(t)*dt,t-xd(1)..x), 
^h respectively. 
4v - values of the function, first deriva- 
4 tive, second derivative, or integral 
^ from xd(1) to x 
hc - the coefficients defining the spline 
% curve. 

. 4 endv - vector giving the end conditions in 
y^ one of the following five forms: 
% endv-1 or endv omitted makes 
^ c(2) and c(n-1) zero 

endv-[2,1left end slope,... 
^ right end slope] to impose slope 
values at each end 
^ endv-[3,left end slope] imposes the 
left end slope value and makes 

% c(n-1) zero 
% endv=[4,right_end_slope] imposes the 
% right end slope value and makes 
% c(2) zero 
% endv=5 defines a periodic spline by 
y^ making y,y’,y" match at both ends 


» if nargin<5 | isempty(endv), endv=1; end 
a4 n-length(xd); sx=size(x); x=x(:); X-x-xd(1); 


. if nargin«6, c-spcof(xd,yd,endv); end 


3: C=c (1:n); si2c(n*1); mi=c(n+2); X-x-xd(1); 


^ yx) 


powermat (x,xd,3)*C/6; 


3 elseif id==1 % y’ (x) 


v=si+m1*X+powermat (x,xd,2)*C/2; 


s elseif id--2 % y’’ (x) 

. v=ml+powermat (x,xd,1)*C; 
: else 
; vzyd (1) *X+s1/2*X.*X+m1/6*X. 73+... 
; powermat (x,xd,4) *C/24; 


^ integral(y(t)*dt, t-xd(1)..x) 
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oo 
o 


50: end 
si, v=reshape(v,sx) ; 


s: function c-spcof(x,y,endv) 
s: h c"spcof(x,y,endv) 

s ^ This function determines spline interpolation 
s ^ coefficients consisting of the support 

. ^ reactions concatenated with y? and y’’ at 
; ^ the left end. 


- 4 x,y - data vectors of interplation points. 
sh Denote n as the length of x. 
. 4 endv - vector of data for end conditions 
ots described in function spterp. 

h 
-4c =- a vector [c(1);...;c(n+2)] where the 
m first n components are support 
S, reactions and the last two are 
(0 values of y'(x(1)) and y’’(x(1)). 


; if nargin<3, endv=1; end 

: X=x(:); y=y(:); n-length(x); u=x(2:n)-x(1); 
; a-zeros(n*2,n*2) ; a(1,i:n)=1; 

. a(2:n,:)=[powermat (x(2:n) ,x,3)/6,u,u.*u/2] ; 
s b=zeros(n+2,1); b(2:n)=y(2:n)-y(1); 

. if endv(1)== % Force, force condition 


a(nt+1,2)=1; a(n+2,n-1)=1; 


; elseif endv(1)==2 ^ Slope, slope condition 


b(nt+1)=endv(2); a(nti,nt+i)=1; 
b(n+2)=endv(3); a(n+2,:)=... 


: [((x(n)-x’).^°2)/2,1,x(n)-x(1)]; 

: elseif endv(1)==3 % Slope, force condition 
b(n*i)sendv(2); a(n*i,n*i)-1; a(n*2,n-1)-1; 
. elseif endv(1)--4 ^ Force, slope condition 


a(nt+1,2)=1; b(n*2)-endv(2); 
a(n+2,:)=[((x(m)-x’) .*2)/2,1,x(m)-x(1)]; 


; elseif endv(1)==5 


a(nt1,1:n)=x(n)-x’; b(n)=0; 
a(nt+2,1:n)=1/2*(x(n)-x’).°2; 
a(n*2,n*2)-x(n)-x(1); 


: else 


error(... 
Invalid value of endv in function spcof?) 


; end 
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. if endv(1)==1 & n«4, c-pinv(a)*b; 
; else, c=a\b; end 


: function a-powermat(x,X,p) 

. 4 a=powermat (x,X,p) 

: 4 This function evaluates various powers of a 
» ^ matrix used in cubic spline interpolation. 


^ 
s h X,X - arbitrary vectors of length n and N 
IDE. - an n by M matrix of elements such that 
sh a(i,j)-(xG)»XCj))*abs(x(i)-X(3))^p 


: x=x(:); n=length(x); X=X(:)’; N-length(X); 

; a=x(:,ones(1,N))-X(ones(n,1),:); a=a.*(a>O); 

: Switch p, case 0, a-sign(a); case 1, return; 

: case 2, a-a.*a; case 3; a-a.*a.*a; 

; case 4, a-a.*a; a-a.*a; otherwise, a-a.^p; end 


Function srfv 


e 


09 VEE ue cp CEU xS 


: function [v,rc,vrr]=srfv(x,y,z) 


^ lv,rc,vrr]-srfv(x,y,z) 


^ This function computes the volume, centroidal 
^4 coordinates, and inertial tensor for a volume 
^ covered by surface coordinates contained in 
^ arrays X,y,Z 


0 

h 
-h4 X,y,Z  - matrices containing the coordinates 
he of a grid of points covering the 
mA surface of the solid 
(AV - volume of the solid 
-H rc - centroidal coordinate vector of the 
aw solid 
O4 vrr - inertial tensor for the solid with the 
x mass density taken as unity 

0 

h 


2» ^ User functions called: scatripl proptet 
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2» 4 p=inline(... 
eh w*Ceye(S)*(r( D)? er Garter)??? ;"^ v! ,?r?)3 


AdemeanC[xC».4y(:0 2069195 
: Ax7x-d(1); y=y-d(2); z=z-d(3) ; 


2: [n,m]2size(x); i-1:n-1; I-i*1; j-1:m-1; J=j+1; 
Sajak), yij=y(i,j); zij=z(i,j); 
; XIjex(1,j); yIj=y(1,j); zIj=z(1,j); 
; xIJ=x (I,J); yIJ=y(I,J); zIJez(1,J); 
. xiJ=x(i,J); yiJ=y(i,J); ziJ=z(i,J); 


s 4 Tetrahedron volumes 
: vi=scatripl(xij,yij,zij,xIj,yIj,zIj,xIJ,yIJ,zIJ); 
ar v2=scatripl(xij,yij,zij,xIJ,yIJ,zIJ,xiJ,yiJ,ziJ); 
as V=sum(sum(vitv2)); 


; 4 First moments of volume 

: X1=xij+txIj+xIJ; X2-xij*xIJ*xiJ; 
; Yizyijtylj*yIJ; Y2=yij+yIJ+yiJ; 
;: Zli-zijtzlj*zIJ; Z2-zij*zIJ*ziJ; 
; vx-sum(sum(v1 .*X1*v2.*X2)) ; 

s vy=sum(sum(v1.*Y1+v2.*Y2)); 

;: vz=sum(sum(v1.*Z1it+v2.*Z2)); 


;: 4 Second moments of volume 
: vrr=proptet (v1,xij,yij,zij,xIj,yIj,zIj,... 


xIJ,yIJ,zIJ,X1,Y1,Z1)+... 
proptet (v2,xij,yij,zij,xIJ,yIJ,zIJ,... 
xiJ,yiJ,ziJ,X2,Y2,Z2); 


s: rc=[vx,vy,vz]/v/4; vs-sign(v); 

s4 Veabs(v)/6; vrr=vs*vrr/120; 

s: vrr=[vrr([1 4 5]), vrr([4 2 6]), vrr([5 6 3])]’; 
s: Vrr-eye(3,3)*sum(diag(vrr))-vrr; 


ss: AVrr-vrr-p(v,rc)*p(v,rc*d); rc-rc*d; 


Function strdynrk 


1: 


function [t,x,v]=strdynrk(t,x0,v0,m,c,k,functim) 


z ^ [t,x,v]=strdynrk(t,x0,v0,m,c,k,functim) 
3: 4 This function uses ode45 to solve the matrix 
a. ^ differential equation: M*X"+C*X’+K*X=F (t) 
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^t - vector of solution times 


^ x0,v0  - initial position and velocity vectors 

4 m,c,k - mass, damping and stiffness matrices 

^ functim - character name for the driving force 

doce. - arrays containing solution values for 
hh position and velocity 

0 

h 


: 4 A typical call to strdynrk function is: 
3: j^ m=eye (3,3); k=[2,-1,0;-1,2,-1;0,-1,2]; 
:.% c=.05*k; xO-zeros(3,1); vO-zeros(3,1); 
s ^4 t=linspace(0,10,101); 

: %4 [t,x,vl2strdynrk(t,x0,v0,m,c,k,?func?); 


: global Mi C K F n n1 n2 

; Mi=inv(m); C=c; K=k; F-functim; 

2: n=size(m,1); ní-1:n; n2=n+1:2*n; 

: [t,z]=ode45(@sde,t, [x0(:);v0(:)]); 
2: X=zZ(:,n1); v-z(:,n2); 


. function zp=sde(t,z) 

: 4 zp=sde(t,z) 

: global Mi C K F n ni n2 

2: zp=[z(n2); Mi*(feval(F,t)-C*z(n2)-K*z(n1))]; 


3: function f=func(t) 

3 h f=func (t) 

s ^ This is an example forcing function for 
. ^ function strdynrk in the case of three 
3: 4 degrees of freedom. 

ss £7 [71;0;2] *sin(1.413*t) ; 


Function surf2surf 


ens CIC rds 


: function [d,r,R]=surf2surf(x,y,z,X,Y,Z,n) 


^ [d,r,R]-surf2surf (x,y,z,X,Y,Z,n) 


^ This function determines the closest points on two 


s 4 surfaces and the distance between these points. It 


^ is similar to function srf2srf except that large 
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. ^ arrays can be processed. 


& % 

» ^ X,y,Z - arrays of points on the first surface 
1: 4 X,Y,Z - arrays of points on the second surface 
uh a - the minimum distance between the surfaces 
12: 4 r,R - vectors containing the coordinates of the 
13: h nearest points on the first and the 

u: h second surface 

is: 4 1 - length of subvectors used to process the 
16: h data arrays. Sending vectors of length 

ir: % n to srf2srf and taking the best of the 
is: h subresults allows processing of large 

19: h arrays of data points 

20: 4, 


;: 4 User m functions used: srf2srf 


; if nargin<7, n-500; end 

os. N=prod(size(x)); M=prod(size(X)); d=realmax; 
s kN=max(1,floor(N/n)); kM=max(1,floor(M/n)) ; 
2: for i=1:kN 


i1=1+(i-1)*n; i2=min(iltn,N); ii12-i1:i2; 
xi-x(i12); yi=y(i1l2); zi=z(i12); 
for j=1:kM 
ji=1+(j-1)*n; j2-min(ji*n,M); ji12-2j1:j2; 
[dij,rij,Rijl]-srf2srf(... 
xi,yi,zi,X(j12),Y(j12),Z(j12)); 
if dij<d, d=dij; r=rij; R=Rij; end 


34 end 

ss; end 

36: 

an (PS SSS SSS SSS SSS SSS SS SSS SS SS SSS SSS SSS SSS SSS SSS SSS SS 

38: 

3: function [d,r,R]=srf2srf(x,y,z,X,Y,Z) 

4: 4 [d,r,R]=srf2srf(x,y,z,X,Y,Z) 

Bir "MM ee eg en Ce Tage 

w: 4 This function determines the closest points on two 
is ^ Surfaces and the distance between these points. 
u: h X,y,Z - arrays of points on the first surface 
a: 4 X,Y,Z - arrays of points on the second surface 
4: 4 d - the minimum distance between the surfaces 
an h r,R - vectors containing the coordinates of the 
as: h nearest points on the first and the 

49: h second surface 


: X=x(:); y=y(:); z=z(:); n=length(x); v=ones(n,1); 
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5» X-X(:)?; Y=Y(:)?; Z=Z(:)’; N=length(X); h=ones(1,N); 
sa: d2-(x(:,h)-X(v,:2).^2; d2=d2+(y(:,h)-Y(v,:)).^2; 
sa, AQ=d2+(z(: ,h)-Z(v,:)).72; 

ss: [u,i]J=min(d2); [d,jl=min(u); i=i(j); d=sqrt(d); 
se r=[x(i);y(i);z(i)]; R=[X(j);Y(j);Z(j)]; 


Function surfmany 


: function surfmany(varargin) 

. ^£unction surfmany(x1,y1,z1,x2,y2,z2, 

h x3,y3,Zz3,..,Xxn,yn, zn) 

This function plots any number of surfaces 
^ on the same set of axes without shape 

^ distortion. When no input is given, then a 
^ six-legged solid composed of spheres and 

^ cylinders is shown. 


Qo 09. 1b... Uu ome o9 DESI, do 
23 


© 
zz 


1: 4 User m functions called: none 


13: if nargin-- 

u: % Default data for a six-legged solid 

i: n=10; rs=.25; d=7; rs-2; rc=.75; 

16: [xs,ys,zs]-sphere; [xc,yc,zc]=cylinder; 
i5 — XS-rS*XS; YS=rs*ys; ZS=rs*zs; 

18: XC-rC*XC; yc-rc*yc; zc-2*d*zc-d; 

1: X1i-xs; yl=ys; zl=zs; 

2: x2=zstd; y2-ys; z2=xs; 

a: X9-zs-d; y3=ys; z3-xs; 

2;  x4=xs; y4-zs-d; z4-ys; 

2; | Xb-x8S; y5-zstd; zb-ys; 

21 | X6-x8S; y6-ys; z6=zstd; 

2: | XÍ-X8; y/=ys; z7=zs-d; 

2: | X8-xC; y8-yc; z8-zc; 

2: | X9-zc; y9-xc; z9-yc; 

2: x10=yc; yl0=zc; z10-xc; 

2: varargin={x1,y1,z1,x2,y2,22,x3,y3,z3,... 


30: x4,y4,z4,x5,y5,z5,x6,y6,z6,x7,y/,Z7,... 
31: x8,y8,z8,x9,y9,z9,x10,y10,z10}; 
32: end 


3: ^ Find the data range 
5 n=length(varargin) ; 


e 
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3: r-realmax*[1,-1,1,-1,1,-1]; 
37: S=inline(’min([a;b])’,’a’,’b’); 
3: bD=inline(’max([a;b])’,’a’,’b’); 


: for k-1:3:n 

. x=varargin{k}; y=varargin{k+1}; 
. Z=varargin{k+2}; 

: x=x(:); y=y(:); z=z(:); 

: r(1)=s(r(1),x); r(2)=b(r(2),x); 
. r(3)=s(r(3),y); r(4)=b(r(4),y); 
s r(5)=s(r(5),z); r(6)-b(r(6),2); 
; end 


; 4 Plot each surface 

: hold off, newplot 

s: for k-1:3:n 

si, X=varargin{k}; y=varargin{k+1}; 
s: Z=varargin{k+2}; 

s: Surf(x,y,z); axis(r), hold on 


54: end 


s ^ Set axes and display the combined plot 

s; axis equal, axis(r), grid on 

ss Xlabel(?x axis’), ylabel(’y axis’) 

s: Zlabel(?z axis?) 

. title(? SEVERAL SURFACES COMBINED’) 

; ^ colormap([127/255 1 212/255]); ^ aquamarine 
. colormap([1 1 1]);, figure(gcf), hold off 


Function volrevol 


a 


Qo. SUIT a oo as EES 


; function [v,rg,Irr,X,Y,Z,aprop,xd,zd,kn]=... 


volrev(xd,zd,kn,th,nth,noplot) 
4 [v,rg,Irr;X,Y,Z, aprop,xd,zd,knJ=~.. 
y) volrev(xd,zd,kn,th,nth,noplot) 


^ This function computes geometrical properties 
^ for a volume of revolution resulting when a 


: ^ closed curve in the (x,z) plane is rotated, 

. 4 through given angular limits, about the z axis. 
. ^ The cross section of the volume is defined by 

. ^ a spline curve passed through data points 
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25: 


; 4 (xd,zd) in the same manner as was done in 
. ^ function areaprop for plane areas. 


. 4 xd,zd - data vectors defining the spline 


he interpolated boundary, which is 
-h traversed in a counterclockwise 
2: % direction 
:% kn - indices of any points where slope 
22: h discontinuity is allowed to turn 
3: % sharp corners 
2: h p - vector of volume properties containing 
4 [v, xcg, ycg, Zcg, vxx, vyy, Vzz,... 
vA vxy, Vyz, vzx] where v is the volume, 
A (xcg,ycg,zcg) are coordinates of the 
4 centroid, and the remaining properties 
29: h are volume integrals of the following 
E integrand: 
UA [X27 y.^2, Zz.^2, Xy, yZ, ZXx]*dxdyxz 
:⁄ X,Y,Z - data arrays containing points on the 
a: % surface of revolution. Plotting these 
34: h points shows the solid volume with 
h the ends left open. Function fill3 
=% is used to plot the surface with ends 
an % closed 
3s: 4 aprop - a vector containing properties of the 
39: h area in the (x,z) plane that was used 
5 d to generate the volume. aprop-[area,... 
sh xcentroidal, ycentroidal, axx, axz, azz]. 


: ^ User m functions called: rotasurf, gcquad, 
sh curve2d, anglefun, splined 

45: 
; if nargin-- 


ti--pi:pi/6:0; t2=0:pi/6:pi; 
Zd- [0, exp(i*ti1),1/2*i*exp(i*t2)/2,0,-1]; 
xd-real(Zd)*4; zd=imag(Zd) ; 
kn=[1,2,8,9,15,16]; 
th=[-pi/2,pi]; nth-31; 

end 


; 4 Plot a surface of revolution based on the 
. ^ input data points 
; if nargin-- 


[X,Y,Z]=rotasurf (xd,zd,th,nth,1); 


; else 
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59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
T 
78: 
79: 
80: 


81: 
82: 
83: 
84: 
85: 


86: 
87: 
88: 
89: 


[X,Y,Z]=rotasurf(xd,zd,th,nth); pause 
end 


^ Obtain base points and weight factors for the 
^ composite Gauss formula of order seven used in 
^ the numerical integration 

nd-length(xd); nseg-nd-1; 

[dum, bp, wf]=gcquad([] ,1,nd,7,nseg) ; 


^ Evaluate complex points and derivative values 
^ on the spline curve which is rotated to form 
^ the volume of revolution 
[u,uplot,up]-curve2d(xd,zd,kn,bp); 

^ plot(real(uplot),imag(uplot)), axis equal,shg 
u-u(:); up=up(:); n-length(bp); 

x-real(u); dx-real(up); z-imag(u); 

dz-imag(up); da-x.*dz-z.*dx; 


^ Evaluate line integrals for area properties 

p=[ones(n,1), X, Z, X252, X.*Z, Z.^°2, X.^3,... 
(x.^2).*z, x.*(z.^2)].*repmat(da,1,9); 

p=(wfi(:)’*p)./[2 334445 5 5]; 


^ Scale area properties by multipliers involving 

^ the rotation angle for the volume 

f-anglefun(th(2))-anglefun(th(1)); 

v=f(1)*p(2); rg=f([2 3 1]).*p([4 4 5])/v; 

vrr-[f([4 b 21); f([5 6 315; £([2 3 1])].*... 
[p([7 7 8]); p([7 7 8]); p([8 8 9])]; 

Irr-eye(3)*sum(diag(vrr))-vrr; 

aprop=[p(1) ,p(2:3)/p(1) ,p(4:6)]; 
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